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Destinée aux amateurs de mots croisés ou de Scrabble, 
cette base de données, due à Roland Jost, permet de 
trouver un mot de longueur donnée dont on ne connaît 
que quelques lettres. 


Ordico contient plus de 15 000 mots classés en 70 
rubriques. 

Recherches et affichages sont rapides : un fichier de 
1 500 mots est chargé en moins de 10 secondes et 
exploité quasi-instantanément. 

il est bien sûr possible d'ajouter des termes aux divers 
fichiers, de créer de nouvelles rubriques. 





Voici quelques rubriques : 


1ère face : 

Acteurs, Animaux, Armes/guerres, Auteurs américains, 
Auteurs anglais, Auteurs français, Chimie, Cinéastes, 
Coureurs cyclistes, Départements/régions, 
Dieux/déesses, Familles végétales, Femmes célèbres, 
Hommes politiques, Iles, Jeux/sports, Minéraux, 
Montagnes, Musiciens jazz, Musiciens, Parties du 
corps, Peintres étrangers, Peintres français, 
Rivières/fleuves, Saints/saintes, Savants/inventeurs, 
Sculpteurs, végétaux, Vêtements, Villes 

2ème face : 

Athlètes, Boxeurs, Cantatrices, Cols, Cosmonautes, 
Coureurs automobiles, Déserts, Détroits, Doctrines 
philosophiques, Drogues, Escrimeurs, Explorateurs, 
Gymnastes, Haltérophiles, Judokas, Lutteurs, 
Maladies, Maréchaux de France, Médicaments, 
Nageurs, Patineurs, Poissons, Présidents américains, 
Skieurs, Ski nordique, Unités, Villes olympiques 









Appleworks au travail 

Par À. Gargadennec et JM. Jego - 188 pages : 168 FF 

Appieworks est un logiciel intégré qui permet de réseudre les problèmes courants ren- 
contrés en entreprise. Cet ouvrage est d'abord un livre d'apprentissage pour s'initier à 
Appleworks au travers d'exemples cencrets. |ltraite successivement des bases de don- 
nées du traitement de texte et du tableau de calcul, ceci avecune dificulté croissante 
Fonctionne sur Apple Il e, Il c et 11 GS. 































Clefs pour Apple Il c et ll e 65C02 


par Nicole &réaud-Pouliauen - 180 pages - 145 FF 

Ce livre est un mémento au pernet d'accéderfacilement aux informations telles que 
les commandes Basic ou systèmes, les caractères, les messages d'erreur, les adresses 
et Jeu d'instructions de 65 C 02. Cet euvrage est aussi un recueil d'astuces qui permet- 
tent de justifier un texte à droite, de programmer la souns, de transférer une image en 
mémoire auxiliaire... 

Un mémento indispensable à tout pessesseurs d'Apple H ét d'Apple Ile 85C02. 
























Clefs pour Apple II GS 

Deuxième édition 

par Nicole Sréaus-Peuliauen - 216 pages - 250 FF 

Cet ouvrage of°re une synthèse des spécificités du matériel et des logiciets de dévelop- 
pement et permet d'accéder à des informatiensfondamentaies cooncemant l'organisation 
matérielle mémoires et ressources graphitues, micreprocesseuret jeu d'instructions, 
entrées/sorties.. L'auteur décrit en détail les diférents logiciels de développement 
{moniteur, système APW avec sonéditeur et son micro-assembleur) et donneun réper- 
toire de l'ensemble des outils de bureau. Un chapitre estconsacréauxappels du Prodos 
16. Enfin, plusieurs exemples illustrent toutes les possibilités de pregrammation de 
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Exemples : 

Un musicien dont le nom comporte 7 lettres, les 
2ème et 5ème sont des ‘E’. Tapez : -E--E-—. 
Vous obtenez instantanément : 


BENNETT DEBCECK DELEEUW GEVAERT 
LESUEUR PEDRELL PEETERS WELLESZ 













Dans les acteurs, -A- — - —E vous donnerait : 
CARETTE PALANCE RACETTE RANDONE RAYMONE 
VALLONE 

EE e. 

CAUCHY CEECHI ENIGHT VAUGHN WRIGHT 


= 














à. C 


onsulter les 
livres PS. sur Minitel au 
36.15. Tapez OI puis 
P.S.I. | 






——---—- dans les femmes célèbres donnerait 
32 noms... 


Disquette doubie face et documentation 
200,00 F. Bon de commande p. 74 
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Les disquettes Pom 


Pour éviter les saisies fastidieuses 
et pas toujours fiables, Pom’s 
met à votre disposition des 
disquettes d'accompagnement qui 
regroupent l'ensemble des 
programmes de la revue. 


Apple // 


Pour les Apple //, deux types de 
disquettes : 


- 140 Ko, 5,25 pouces, au prix 
de 60,00 F, fichiers en forinat 
DOS 3.3 au recto, en format 
ProDOS au verso. L'ensemble 
des programmes de ce numéro 
est conçu pour fonctionner 
avec ProDOS ; 

- 800 Ko, 3,5 pouces pour 
Unidisk, au prix de 80. F, 
fichiers en format Prol»)S 
seulement. 


Pom’s n'a pas encore de licence 
d'utilisation du fichier PRODOS 
aussi, la face ProDOS n'est pas 
bootable. À l'aide du programme 
FILER ou de la disquette 
Utilitaires Système, installer les 
fichiers PRODOS et BASIC.SYSTEM 
sur la face ProDOS : la disquette 
pourra faire démarrer le système. 


Macintosh 


Si vous avez la disquette Mac 30, 
tout est simple puisque vous 
disposez des programmes prêts à 
l'emploi : ce sont des applications 
“double-cliquables’ et autonomes. 
Les fichiers ‘source’ autorisent 
des modifications — à condition 
de détenir le ‘Système de 
développement 68000’ — de 
l'application ‘“TPom’s”. 

Si vous n'avez pas la disquette 
Mac 30, et afin de pouvoir utiliser 
“TPom’s”, il vous faudra saisir 


les fichiers nécessaires à sa 
création avec l'éditeur “Edit” 
(Système de développement pement 68000). 
68000), puis provoquer le traite- 
ment du fichier ‘T_Pom'’s.Job’ 


Fichiers et programmes sur la disquette Apple // 


DEMO.DECOMPACT Programme Basic de démonstration (RUN ou —) 


DECOMPACT.OBJ  Routine en assembleur 65816 (BLOAD) 


depuis l'application “Exec” 
(toujours le Système de dévelop- 


G 


DECOMPACT.S Source en format TEXT 

POMS1 Image GSPaint utilisée par DEMO.DECOMPACT 
POMS2 à POMS7 Idem, mais seulement sur disqueltes 800 Ko 
DHGRTOOL Programme Basic à lancer par RUN ou par — 
DHGRTOOL.S Source en format TEXT 

DHGRTOOL.O Rouline en asembleur 

HARD Routine de HardCopie 

DEMOTOOL Programme de démonstration des routines 

M HGR1 image HGR utilisé pour la démonstration 
IMHGR2 Image HGR utilisé pour la démonstration 
IM.DHGR Image DHGR utilisé pour la démonstration (800 Ko seulement) 
SOURIS. LASER Jeu Basic (RUN ou —} 

LASER.START Programme Basic de lancement du jeu en assembleur (RUN ou —) 
LASER MOUSE ter fichier lancé par LASER.START 
LASER.SBR 2ême fichier lancé par LASER.START 

SOURIS. DEMO Démonstration des routines Souris (RUN ou —} 
SOURIS.C Routine assembleur 

SETCURSOR.C Routine assembleur 

INTERFACE.C Routine assembleur 

INVERSION.C Routine assembleur 

SOURIS Source assembleur en format TEXT 
SETCURSOR Source assembleur en format TEXT 
INTERFACE Source assembleur en format TEXT 
INVERSION Source assembleur en format TEXT 


T.POMS Programme objet (BRUN ou —) 
T.POMS1 à T.POMS4 Sources en format TEXT 





Fichiers et programmes sur la disquette Macintosh 


Girl Image MacPaint 

Japanese Girl Image MacPaint 

Screen Editor Application 

T Pom's Application 

T_Pom's.Asm Fichier d'assemblage MDS 68000 (Assembler) 


T_Pom's.Job Fichier ‘exec' MDS 68000 (Executive) 
T_Pom's.Link Fichier de ‘linkage' MDS 68000 {Linker) 
T Pom'sR Fichier de ressources MDS 68000 (RMaker) 


T_Pom's/t.Asm 
T_Pom's/2.Asm 
T_Pom's/3.Asm 
T_Pom's/4,Asm 


Fichier d'assemblage MDS 68000 (Assembler) 
Fichier d'assemblage MODS 68000 (Assembler) 
Fichier d'assemblage MDS 68000 (Assembler) 
Fichier d'assemblage MDS 68000 {Assembler) 
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Hervé Thiriez ja dito TL #! 


Voici donc bouclé le 30ème numéro de Pom's, numéro rajeuni par le prin- 
temps mais également par notre souci de qualité, y compris dans la présenta- 
tion. Pom's évolue, s'ouvre au GS, à la communication, à la télématique, 
bientôt au Mac SE et au Mac II ; ProDOS se doit de devenir la régle — la diver- 
sité des supports nous y contraint et c'est un bonne contrainte —, DOS 3.3 
est en passe de devenir exception. C'est le sens de l'évolution Apple, 
MEM/DOS s'appuie d'ailleurs déjà sur ProDOS qui est un pont avec les MFS et 
HFS du Mac. 

Le IIGS lui-même est un pont avec la ligne Mac : l'acquéreur du nouveau-né, 
plongé dans la volumineuse documentation distribuée par VIF ou dans le livre 
de J.-P. Curcio au PSI sera familier de la ToolBox et des routines QuickDraw 
de son appareil... et de celles du Mac. 


Dans ces pages, télématique toujours : après l'enregistrement des pages des 
serveurs Minitel, le téléchargement entre Apple via Minitel et téléphone, voici 
des programmes de récupération de l'annuaire électronique, sur Apple // et 
sur Macintosh. Votre câble de liaison ne chômera pas : votre Apple // et votre 
Mac serviront bientôt. 

La souris est à l'honneur : une routine pour en faciliter la gestion depuis le 
Basic — l’Applesoft est bien pauvre là encore — et un double jeu de réflexion 
construit autour de la souris, version Basic, version assembleur 65C02 (à vos 
kits...). 

Vous lirez également des bancs d'essai, MultiScribe, More 2 et la passion de 
nos rédacteurs : le billard. Quant à GSPaint et le Basic, il s'agit bien là de la 
première routine 65816 dans Pom's : ne doutez pas de l'extension de cette 
rubrique. 


@nt collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Michel Duroc, Jean-Michel Gourévitch, Olivier 
Herz, Roland Jost, Philippe Mathieu, Benoît Mesnil, Gérard Michel, Christian Piard, 
Alain Raynaud, Jacques Rey, Hervé Thiriez, Bernard Toméno. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez, 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Éditions MEV - 12, rue d'Anjou - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Éditions MEV. 

Diffusion : N.M.P.P. 

Impression : Berger-Levrault - 18, rue des Glacis - 54000 Nancy. Tél. : 83.35.61.44. 

Photo de couverture : CP & JLB. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo 
Apple, Mac et le logo Macintosh sont des marques déposées d'Apple Computer, Inc. 
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GSPaint et Basic 


Après avoir craqué pour un 
superbe TGS, il faut se rendre à 
l'évidence, que faire sans l'ombre 
d'une documentation dans le 
carton, sans un seul renseigne- 
ment sur Prodos 16, sur le port 
imprimante (que refusent obstiné- 
ment certains programmes), sans 
parler de la synthèse sonore qui 
avait charmé nos oreilles dans la 
boutique ? li n'y a que ‘Clefs 
pour Apple IIcs’ qui contient 
beaucoup de choses encore bien 
vagues... (La documentation 
technique maintenant disponible, 
3000 pages en 6 classeurs, 
2000,00 F, peut rendre le service 
espéré). 


Nous disposons, bien sûr, de 
GS/Paint, c'est beau et 
spectaculaire, mais que faire de 
ces images que l'on ne peut 
manipuler qu'avec le 
programme ? Un fichier de 32 
Ko, en format écran, ne se 
manipule pas facilement sous 
environnement Basic.system. 
Aussi était-il tentant de charger en 
mémoire les images sous format 
GS/Paint et de les transférer en 
page Super Haute Résolution à 
l'aide d'une routine de 
décompactage. 


Structure d'une 
image GS 


La page Super HGR se trouve 
dans le banc de mémoire $EI 
($00 étant le banc accessible par 
Basic.sytem et Prodos 8), elle 
débute en $2000 pour finir en 
$S9FFF. L'image en elle-même est 
constituée de 200 fois 160 octets 
situés entre $2000 et $9CFF, 
chaque demi-octet représentant 1 
pixel (en mode 320 x 200 adopté 
par GS/Paint) qui peut prendre 16 
valeurs définissant le numéro de 
rang d'une des couleurs d'une 
palette. 

Cette palette est formée d'une 


suite de 16 fois deux octets qui 
par leurs combinaisons de valeurs 
constituent l'une des 4096 
nuances, l'emplacement réservé 
commence en $9E00 et se termine 
en $9FFF ce qui permet de loger 
16 palettes différentes ! 


De $9D00 à $9DC7 se trouvent 
200 octets qui contrôlent chacun 
une ligne du dessin ; la partie 
basse de ces octets, en particulier, 
désigne la palette qui est active 
pour une ligne donnée ce qui 
permet d'afficher 256 nuances 
dans une page. Dans le cas de 
GS/Paint une seule palette est 
active, ce qui simplifie bien les 
choses. 


Analysons maintenant la structure 
d'un fichier image compactée par 
GS/Paint. 


On reconnaît facilement que les 
32 premiers octets représentent la 
palette de couleurs, viennent 
ensuite 514 octets qui déroutent 
quelque peu et qui constituent 
finalement les canevas 
disponibles sur la ligne inférieure 
de l'écran de GS/Paint. Ces 
octets ne seront d'aucune utilité 
pour la transcription du dessin. 
L'image proprement dite 
commence à partir du $222ème 
octet du fichier. 


Pour compacter une image, il faut 
isoler les groupes de pixels 
identiques des suites de points 
différents les uns des autres. Le 
fichier compacté sera alors 
constitué de pointeurs qui 
indiquent si l'on doit multiplier x 
fois l'octet suivant, ou bien 
recopier les x octets qui suivent 
directement. 


Le décompactage 


Dans le cas de GS/Paint, la valeur 
donnée au pointeur va prendre 
trois significations différentes : 


+ Un pointeur inférieur à $40 
indique que nous avons à faire 


Jacques Key 


à un segment contenant des 
octets non identiques, le 
pointeur donne la longueur du 
segment. 

+ Les valeurs comprises entre 
$CO et $ E7 ainsi que $41, 
$42, $44, $45 et $46 nous 
invitent à multiplier l'octet 
suivant de 2 à 160 fois : pour 
cela, $CO vaut coefficient 4, 
$C1 vaut 8, $C2 = 12 et ainsi 
de suite de 4 en 4 jusqu'à $E7 
= 160; les coefficients x2, 
x3,, x5, x6 et x7 étant 
représentés parles valeurs $41 
à $46. 

+ Si le pointeur est compris entre 
$80 et $CO, il faut prendre en 
compte les quatre octets qui 
suivent et reproduire cette 
combinaison x fois. La valeur 
de x étant trouvée en 
retranchant $80 du contenu du 
pointeur. 


L'exemple en encadré éclaircira le 
codage. 


La routine de décompactage est 
courte (moins de 256 octets), elle 
a été assemblée en $2000 en 
utilisant le Mini-moniteur, faute 
de mieux, le fichier ‘source’ listé 
ci-contre et figurant sur la 
disquette d'accompagnement est 
mnaurichrer  téxite LCrcé sur 
Appleworks en respectant la 
syntaxe approximative d'un 
assembleur. Il est récupérable 
avec tout assembleur. 


Le but était avant tout d'utiliser 
des instructions spécifiques du 
processeur 65C816, les transferts 
de blocs d'octets étant effectués à 
l'aide de l'instruction MVN qui 
copie À octets de l'adresse X vers 
l'adresse Y (X et Y sur 16 bits). 
Les bancs de mémoire source et 
destination sont indiqués par les 
deux octets qui suivent 
l'instruction MVN. 

Il faut signaler deux contraintes 


importantes à l'utilisation de 
MVN : 





+ le registre B (registre indi- 
quant le banc de donnée actif) 
conserve la valeur du banc de 
destination en fin d'instruction, il 
est donc nécessaire de le 
sauvegarder par PHB (empiler B) 
avant MVN et le restituer par PLB 
après ; 
* si l'on travaille en mode natif 
mixte (A sur 8 bits, Xet Yen 
16 bits), ce qui est le cas de la 
routine, 1] faut impérativement 
annuler l'octet haut du registre A 
car l'instruction MVN décompte 
tout de même sur 16 bits (utiliser 
LDA £00 puis XBA avant de 
charger dans A le nombre 
d'octets à transférer). 


La routine comportant quelques 
JSR internes (deux sous-routines 
de décomptage) ne peut être 
relogée qu'après des modifica- 
tions très simples à réaliser. Pour 
lister le code objet en moniteur, 
ne pas oublier de taper au 
préalable 0=x pour que le 
désassemblage se fasse sans 
erreurs et reconnaisse les codes 
sur 16 bits (la lettre x doit être 
tapée en minuscule). 


L'adresse de chargement du 
fichier image compacté est 
$2100, pour la changer, modifier 
la valeur du 13ème octet. 

Le deuxième octet contient la 
valeur qui permet la commutation 
du registre $C029 en mode Super 
HGR. Si l'on met $41 l'image est 
écrite mais l'écran reste en mode 
texte, il faut alors taper POKE 
49193,161 pour l'afficher et 
POKE 49193,65 pour revenir au 
texte ($C029:A1 et $CO29:41 
sous moniteur). 

En plaçant $A1 dans le deuxième 
octet, le décompactage a lieu en 
direct ce qui peut créer un certain 
effet d'animation. 


Lorsqu'on se trouve en Super 
HGR, pour revenir au mode texte 
depuis le basic, seul le poke cité 
plus haut est actif. Par contre, 
sous moniteur, taper CTRL-T puis 
Retum. 


Le programme DEMO.DE- 
COMPACT illustre l'utilisation 
de la routine. 


G 
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Source DECOMPACT.S 


* Version 


1.4 — J. REY Février/Mars 1987 * 


GRG 52000 

= $SEB sPointe sur la zone de chargement de l'inage campoctée 
= $ED zPointa sur la zone de là page super HGR 

= $EF ;Compteur d'octets 

=  $FA Compteur de transfert 

= $co29 Vidéo Sélect Register : commutateur de résolution vidéo 


érrésxrxrébéér42 Inftialisation *‘#ééééréesmééz 


INIT 


LCA £41 ;:Ou LDA £AÏ pour voir l'image se décompacter 
STA VSER ‘Perret la linéarisation des adresses super HGR 
$TZ ADSOU sInitiaiisation des âdresses source et 

ST£ ADDES destination 

LDA £21 ‘Image compactée chargée à partir de $2100 

STA ADSOUSs1 

LSA £20 Début d'image super HGR en $E1/2000 

STA ADDES+1 

CLC 

XCE Passage en mode natif 85C816 

REP £10 Adoption du mode mixte À = 84 bits, X et Y = 16 bits 


#éésitéééiééééé Transfert de la palette nina iininiié 


TRANSPÆL 


P4B ;Sauvegarde sur la Pile du N° de banc de données actuel 
LCA £00 

X6A ;Annuie les 8 bits de poids fort de À 

LOA £iF ;là palette comporte J2 octets 

LDX ADSOU Récupération de l'adresse source 

LDY €9600 ;Init de l'adresse de destination de 1a palette 
MVY 00E1 ‘Transfert de A octets du banc 00 vers Ei 

LDX £100C7 

STZ 9D00,X Remise à zéro de la zone Scan Line Control Bloc 
DEX +200 octets 

BPL RAZ 

PLB :On se replace dans le banc 00 (B = El après MVN) 


*rtésééssititss Analyse de l'image compactée **##r#nrounssasss 


DEB IMAG 


* 


LECF@INT 


GCTMULT 


SUPCO 


SUITE 


LECPIX 


LDA £22 
STA ADSOU 
CLC 

LDA ADSOU+1 
ADC £02 


STA ADS@U+1 Premier pointeur d'image situé au $222 eme octet 


LRA (ADSOU) 
CHP £40 
3CC TRANSOCT ; Transfert d'une segment d'octets non identiques 
CMP £C0 


“Récupère un pointeur 


BCS SuPco ;Le painteur est un muitipiicateur de 4 en 4 

CP £30 

SCS TRANS4 ; Transfert d'une suite de 4 octets reproduite plusieurs 
ANS £0F Le pointeur est un multiplicateur par 2,3,5,6 œ 7 
ZINC s {valeur comDrise entre S4] et $46) 

BRA SUITE 

SEC :OCTMHULT cammence ici si pointeur >= à $C 

SC £3F :Transtorme les Valeurs du pointeur comprises 

ASL entre C0 et E7 en Une valeur de multiplication 
BSL sd'octets comprise entre 4 et 160 (de 4 en 4) 

STA COMP1 -Initialise le compteur 


JSR INCADSGU ; incrémente l'adressa source 


LDA (ADSGU) ;>Récupère ia valeur de l'octet ‘'Pixel' à muitpilier 


LOY £909E1 

PAY ;Sauve sur la pile 16 N° de banc source ét destinaticn 
PEB :Commute sur le banc destination 

STA (ADDES) ;Ecrit dans la page Graphique 

PLB :Commute sur le banc source 

JSR INCADDES ;Incrémente l'adresse de destination 

DEC COMP1 


BNE LECPIX ‘On recomnente autant que nécassaire 


JSR INÇADSOU ;Passé au pointeur suivant 
BRA LECPOINT :Branche au début de l'analysa 








fois 






TRAN£4 


SEC 
SBC 
STA 
LDA 


TRANSOCT STA 


ENCORE 


JSR 
PHhB 


PLS 


BOUCLE JS£& 


INCADSOU INC ADSOU 


RET 


INCAODES INC ADDES 


FIN 


REF? 


LOA 
BNE 


BMNE 
INC 
RTS 


BNE 
INC 
LDA 
CMP 
BNE 


eLx 
SEC 
XCE 
RTS 


Début rcutire de multiplication de groupes de 4 octets 
£80 ;Le mutipiicateur va de S0 à $SA7 (1 à 40 fois 4 octets) 
COMP2 ;Que l'on range dans le Compteur de transfert 
£03 Transfert d'une suite de 4 octecs 
COMP 1 
INCADSOL' :Pour se placer sur le £remier octet de la suite 





Récapitulation 
DECOMPACT.OBJ 


Après avoir saisi cette 


Sauve le banc source récapitulation Sous moniteur, 
£o0 vous la sauvegarderez par : 
CAN ONENCSICESRTE CEE BSAVE DECOMPACT.OBJ, A$1000,LS101 
COMP1 sNonbre d'octets à tCrersférer 
LL 1000:A9 A1 8D 29 CO 64 EB 64 
00£1 ‘Et àhcp ‘ c'esc Creansfère ! 1008:ED 64 FA A9 21 85 EC A9 
:Retour au banc de départ 1010:20 85 EE 18 FB C2 10 8B 
INCADDES ;On avance de deux Pixels {un octec/ 1018:A9 00 EB A9 1Fr A6 EB AO 
COMP2 1020:00 9E 54 El 00 A2 C7 00 
SAUT #51 Cransferts multiples saute incrémentation da 1028:9E 00 9D CA 10 FA AB A9 
ACSOU nd source ae, 1 MERE RL 
Co! S 1038:85 EC B2 EB C9 40 90 34 
BOUCLE ;Avance ies adresses du nembre d'occet transféré 1040:c9 co 80 09 c9 80 B0 25 
£03 1048:29 OF 1A 80 05 38 E9 3F 
COMP 1 1050:0A 0A 85 EF 20 A1 20 B2 
COMP2 1058:EB A0 El 00 5A AB 92 ED 
ES ‘A nouveau les quatre mêmes octets 1060:A8 20 A8 20 C6 EF DO EF 
LECPCINT ;C'‘est pas fini, avx suivants ! 1068:20 A1 20 80 CD 38 E9 80 
1070:85 FA A9 03 85 EF 20 A1 
mers rhretvetts Sous routines ‘rrréérérerrreer 1078;:20 8B A9 00 EB A5 EF A6 
1080:EB A4 ED 54 E]1 00 AB 20 
‘Incrémente ia païtie tasse ec haute de l'adresse 1088:A8 20 A5 FA D0 03 20 AI 
Hi — AeUECe 1090:20 C6 EF 10 F2 A9 03 85 
1098:EF C6 FA 10 DC 64 FA 80 
1040:99 E6 EB D0 02 E6 EC 60 
:Incrémente i'adresse des 9ixeis dans la page 10A48:E6 ED DO 08 E6 EE AS EE 
RET2 ‘écran super FGR 10B0:C9 9D DO 03 FA 38 FB 60 
APDRSÈI 1088:00 00 00 00 00 00 00 00 
OP mn: ne 10C0:C2 CF D5 D4 C9 CE C5 A0 
£9D sVérifie si l'on :'esz Pas arrivé à la fin de la page 
RET2 ÉNcnl ec cienteoncinocne MOUMSECE C5 CIUCE CD DO CI C3 
10D0:AA AA AA AA AA ZA AA AA 
:C'est fini, on dépile pour récupérer l'adresse de retour 10D8:AA AA AA AA AA AA AA AA 
10E0:A8 C2? A9 A0 CA AE AO D2 
sRetour au mode émularion 10E8:C5 D9 A0 B0 B2 AF B@ B7 
LAURE 10F0:AA AA AA AA AA AA AA AÂ 
10F8:AA AA ÆÀ AA AA AA AA AA 
1100:00 


Programme 


DEMO.DECOMPACT :° 
110 
Pour utiliser ce pregramme de démenstration, veus devez avoir sur 
la disquette 7 images graphiques tÿpe GSiPaint, sauvegardées sous  j29 
les nem : POMSI, POMS2, POMS3... POMS7. C'est le cas si 
vous disposez la disquette d'accompagnement 3,5 peuces, 800Ko de 139 
Pom's. 
Selon le nembre d'images disponibles, medifier la ligne 140. 195 
5  REM ####***#*#* Démo Décompact 
20 TEXT HOME 140 
279 DS = CHRS$S (4):TYPES = ",TSCO, AS2100" 150 
25 PRINT DS'"bloaddecompact.obj,a$2000" 
69 PRINT PRINT " Décompacteur d'image 230 
s GS/Paint" 
70 PRINT " À AH HA À 
an 240 
80 PRINT PRINT ‘* Par J. Rey ANEREVI 
er/Mars 87 
65 SPEED= 108: PRINT : PRINT 
50 PRINT "Nous allons voir apparaître une s 250 


uite " 


260 


PRINT ‘d'images créées avec GS/Paint et 
cela LQ 

PRINT "sans l'aide du programme de dess 
Tr. " 

PRINT "La routine 
utiliser" 

PRINT "ces dessins à partir d'un progra 
mme en PRINT "BASIC." 

PRINT DS$S'bloadpoms1";TYPES: CALL 8192: 
POKE 8193,161: POKE 49193,161: FORT = 1 
TO 2000: NEXT 

BRORXE = 2 «TON? 

PRINT DS"blozdPOMS"X;TYPES: CALL 8192: 
NEXT 

FOR X = 1 TC 5000: NEXT 


"Décomgact' permet d' 


HTAB 1: VTAB 


6: CALL - 958: POKE 49193,65: SPEED= 25 
©) 
PRINT : PRINT : PRINT PRINT : PRINT 


PRINT “Pour recomaencer presser "Espace 


AUS DIR TNT: PRINT "Pour quitter presser 
ESC "2®) GET R$ 
IF RS = CHRS (27) THEN HOME : END 


GOTO 135 








La souris ? facile ! 


Pour gérer la souris, Apple 
propose actuellement deux 
méthodes : 

* enassembleur, en appelant des 
routines placées sur la ROM de la 
Carte interface, 

* en Applesoft, avec des séries 
complexes de PR#4 : PRINT 
CHRS(0) : PR#O.. 


Aucune n'est totalement 
satisfaisante car elles exigent, de 
la part du programmeur, soit une 
parfaite connaissance du 6502, 
soit des acrobaties pour pouvoir 
gérer en Basic le moindre menu 
déroulant. 


Le programme proposé ici offre 
la possibilité d'utiliser en 
Applesoft des commandes 
structurées qui permettent la 
programmation rapide d'appli- 
cations complexes utilisant la 
souris. 


Les commandes 


Ces commandes utilisent l'éternel 
vecteur de l'ampersand — ou 
esperluète pour les francophiles 
anglophobes — comme point 
d'entrée : 

& INIT (MOUSE) 

débute obligatoirement toute série 
d'instructions utilisant la souris, 
et remet à zéro les pointeurs 


& CLOSE (MOUSE) 
déconnecte la souris à la fin du 
programme 


& CURS (n) 

sélectionne la forme du curseur 
graphique matérialisant la 
position de la souris 


& WAIT (PRESS) 

attend que le bouton soit appuyé 
pour rendre Ja main au 
programme, et continue d'animer 
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D 


le curseur en attendant 


& WAIT (NOPRESS) 
idem mais attend que le bouton 
soit relâché 


& WAIT (NEW PRESS) 
idem mais attend une nouvelle 
pression du bouton 


& WAIT (OUT [0,0 TO 
100,100]) 

attend une sortie du cadre 
graphique défini par les deux 
points de coordonnées 0,0 et 
100,100 


& WAIT (OUT [0,0 TO 
100,100] OR PRESS) 
idem mais on rend 
immédiatement la main si le 
boutonest activé 


& WAIT (OUT [0,0 TO 

100,100] OR NOPRESS) 
idem mais on rend 
immédiatement la main si le 
bouton estrelâché 


& INVERSE (0,0 : LEN 
= 10,6) 

inverse la fenêtre graphique 
déterminée par le point 0,8 sur 
une longueur de 10 octets (soit 10 
x 7 = 70 pixels) et sur une 
hauteur de 6 lignes 

€ DATA (X,Y,BUT) 

place respectivement dans les 
variables X, Y et BUT 
l'abscisse, l'ordonnée de la 
souris et l'état du bouton 
(O=relâché, I=appuyé) 


Exécution du 
programme 


Le programme se charge par la 
séquence d'instructions suivante : 


BLOAD SOURIS.C 

BLOAD SETCURSOR.C 
BRUN INTERFACE.C 
BLOAD INVERSION.C 


Alain Raynaud 


suivi des commandes: 
HGR : POKE -16302,0 


pour afficher la première page 
graphique en mode non-mixte. 

I] est recommandé de placer 
HIMEM: à 36608 ($8F00) avant 
le chargement de ces routines afin 
d'éviter leur écrasement 
intempestif. 


L'ensemble des routines 
fonctionne sans modification 
sous environnement DOS 3.3 ou 
ProDOS. Les sources ont été 
constitués avec l'assembleur 
ProCODE. 


En revanche, pour minimiser 
l'occupation mémoire du 
programme, aucun contrôle n'est 
effectué pour vérifier qu'il existe 
bien une souris en slot 4, si tel 
n'est pas le cas alors gare au 
plantage! 


Occupation mémoire 


S9080 

début du fichier SOURIS. 
initialisation de la souris. 

appel de la routine en ROM 
correspondant au code d'appel 
$9200 

début du fichier INTERFACE. 
interprétation des commandes 
Basic et appel des routines des 
autres fichiers 


S93F0 

début du fichier SETCURSOR. 
contient la table de formes 
(SHAPE) Applesott matérialisant 
la souris 


S95C0 

début du fichier INVERSION. 
routine d'inversion de fenêtre 
graphique 

SV600 

debut du DOS 





Sept formes sont définies dans le fichier 


SETCURSOR : 





SOURIS 
0 flèche 
. AMPER 
1 ciseau 
2 note de musique 
3 croix 
4 stylo 
S crayon 
6 document 7. 
7 feuille DEP 
Il vous est possible d'en définir d'autres sous la 
contrainte d'espace mémoire indiquée ci-dessus, 
SETCURSOR place également aux adresses 2 et 3 la 
position de la forme sélectionnée. 
Fe] 
rot 
s 
SNTX 
WAttI 
DA'A | 


Programme SOURIS.DEMO 


5 PRINT CHRS (4) "BLOAD SETCURSOR.C" Que 
6 PRINT CHRS (4})"BLOAD SOURIS.C" 
7 PRINT CHARS (4) "BRUN INTERFACE.C" 
8 PRINT CHR$S {4) "BLOAD INVERSION.C"* 
9 HGR POKE - 16302,0 Ans 
10 & INIT(MOUSE) 
20 & CURS( INT ( RND (1) * 7 + 1)) 
30 & INVERSE (0,0: LEN = 20,191) 
40 & CURS( INT ( RND (1) * 7 + 1)) 
50 & WAIT (OUTIO,0 TO 140,191} OR FRESE) 
60 & DATA (X,Y, BUT) 
70 IF BUT > O THEN 200 
80 & INVERSÉE (0,0: LEN - 40,191) 
90 & CURS( INT ( RND (1) * 7 à 1)) 
100 & WAIÏT (OUTI140,0 TO 279,191} OR 
PRESS) 
110 & DATA (X,Y, HUT) 
120 IE BUT > Q THEN 200 
130 68  INVERSE (0,0: LEN 40,191) 
140 GOT) 40 
200 & C1,0Sk (MOUSE) 
210 FEXL 
Source INTERFACE 
Assembleur ProCODE 
genou emames £ Let es Lanesges le : 
à tent le LACS eve des ban 1 
# Srosttas 4 dos 
à ENITIMOU EE) 
AVAL ÉRRKENT.T 
SWAN) 
’ WATT UUITIO, 0 Jo 1, 41) SN'EX 
‘ MA DT ÉOUT EU D 1, DE ON PRESS) 
HA L'ECOTPEDUR 4  L LE o ME) CLOSE 
SWALTENEW PRESS) 
3 su'tiiene À 1) 
Are (MISE) 
VhATACX, Ye Hal) 
A ENVIE CA Us LENS EU, 1) 


CLOSE 


ORG 


EQU 


LDA 
STA 
LDA 
STA 
LDA 
STA 
RTS 


CAE 
HEQ 
CMP 
uro 
CM 
HEQ 
CME 
de Q 
CMP 
BE 
RTS 
AMI 
MP 
ME 


LY 
LA 
1SR 
nos 
15R 
MF 
ET Li 
UM 
HNE 
HSK 


59200 ;suite de SOURIS 


$901C 


#54C 
$3F5 
# <DEBUT 
53F6 
#>DEBUT 
S3F7 


#55 ;code de WAIT 
WAITI 
Ft 
uvre 
re 
CLOSE! 
4583 
DATA 
459 
INV 


DATA 


; code de 


L'ARRE 
DATA 
CLOSE 


#iN 
#<iN 
VEKRIR 
SN'TXx 
Sy000 
Si1 
SH! 
voue" 
SNTA 
5h41 
Ste / 
SE ik 
SA! 
l'An 
S1+1 
M4 / 


sklu 


FO 
SUN 

4 

} Yoan ?. h de LEN 
NEN 

Sist 
#5p0 
SNTX 
sl 
Se « 
SHdtue 
SA! 
d'Alir, 
SH 
SDUpe / 
Sri 
ÿSA1 
VAL 
a>TA 
$1 

#< TA 
350 
5950 
SH! 


INVEHSE 


sHl 
*'u' 
CUR 
#>c'i, 
#<ci, 
VEN LH 
SNUX 5 
$Sc417 


74 CLOSE (MOUSE) 


+ (Sert Mouse} 
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SNTXA 
DATA 


SNTX/ 
WAIT 


LDA 
ST'A 
DA 
S'TA 
JSR 
JSR 
LDA 
SA 
LDA 
SA 
JE 
SR 
IDA 
STA 
1DA 
STA 
JS 
CMB 
BNE 
1.DA 
JSR 
LDY 
JSR 
LOX 
LOY 
SR 
1.DA 
LDY 
JSR 
LDX 
LADY 
JEle 
LOA 
AND 
JAY 
SR 
LOX 
LDY 
JSK 
JM 
RTS 


JSR 
CM 
BNE 
JSK 
LDX 
SYX 
LDX 
STx 
LOY 


J1+1 
#s00 
#sca 
4540 
$c400 
$81 


S81 
#'R! 
SNTXS5 
SB1 
s's' 
SNTXS5 
$B1 
(ALT 
$B1 
$0D67 
$E10C 
SAO 
SNTX4 
SA1 
594E7 
SH1 
(ID; Mn 
SNTX4 
SB1 


$B1 

F1 Fe { [2 
SNTX4 
SB1 
SDFE3 
$83 
TAMF'I 
$84 
l'AMP2 
SH! 
SDFES 
$83 
L'AH 
Ss8: 
AU: ! 
$HI 
SDEE 
$H1 
TAB 12 
$84 
taBri 
5:3/ 

# tJ L 
ENTX4 
#6 
SOURIS 
58 
5£301 
FAN 
tAH+I 
SEH2H 
$S/ 

Se 
$E2F2 
T'Amt 1 
TAMP/ 
SEB214 
SE 
#580 


£$t30! 
TAB +2 
J'ANt 1 
$SEH24 
sut 


$B1 

# L Ve L 
SNTX2 
$SB1 
$B8 
TAMI'1 
SH 
TAMP 2 
#>PR 


: 4 CURS{n) 


: 4 DATA (x, Y, BUT) 


5 KO WALTIVRESS) 


S1 


s?2 


SNYX7 


#1 


#<PR 
VERIF 
S1 

#0 
SOURIS 
S$B1 
TAMP1 # £ WAIT(NOPRESS) 
SB8 
TAMP2 
$B9 
#>Ne 
#<NO 
VERIFE 
S2 

#1 
SOURIS 
$Bi 
TAMP1 ;ÿ 6 WAIT{NENW PRESS) 
SB8 
TAMP2 
583 
$s8? 
F$SBF ; code de NEW 
S3 

$B1 
#>PR 
#<PR 
VERIE 
SNTX? 
#95 
SOURIS 
SH] 


TAMF 1 
$B8 
TAMPZ 
SRG 
#>O0u ? 8 WAITtOUTI0, 0 ro 140, 901) 
#<ot! 
VERIE 
SNTX2 
Ss8i 
SBD6 / 
SEIOC 
SA! 
TAH 
SAO 
‘FAB : 1 
SH / 
YEN 
SNEX 3 
Sul! 
S0D6 / 
SEICX 
SA! 
Ad +2 
SB}/ 
WSCI ‘ dende der TU 
SNTX 1 
$B1 
SDD6 / 
SE10c 
$A] 
lAB+4 
SAC 
l'AH:4 
587 
#7," 
SNYX I 
SH} 
5006 / 
$E 10€" 
SAI 
TAB19 
di TrAr 
50 
#>TA# 
ÿ1 
SH/ 
s'il" 
SNEX! 
$H! 





CHP #$SCE ; code de OR 


CH3 LOA #2 / Ou NOPRESS 


CH1 LDA #4 ; simplement '})! 
UMP  CALL 

CH2 LDA #3 OU PRESS 

CALL USR SOURIS 
UMP  $B1 

SNTX1 RTS 


VERIF STX  AD+1 
STY AD+2 
STX Vi+1 
STY Vi+2 
LDX #0 
JSR $B?7 

AD CMP $200,Xx 
BNE FAUX 


v1 LDA 5200,x 
BEQ OK 
UJSR SB1 
UMP AD 

OK CLC 


FAUX SEC 


TAMPI HEX 00 
TA!'4P2 HEX 00 


IN ASC 'INIT(MOUSE) ! 
HEX 09 

CL ASC  'LOSE (MOUSE) ‘ 
BEX 00 

NO ASC  'NO" 

PR ASC PRESS)" 
HEX O0 

où ASC "OUT(' 
HEX O0 

TAB Ds 6 





Source SETCURSOR 
Assembleur ProCODE 


RARRRARRRRRRARARAARERRRARRRRRRRRRARRARÉRRRRRRER ARR RERER ER 


+ Progranme de gestion du curseur 

LA 

ÉRRRÉRRARRAARRRRRRRRRARRRRRRRARRRRRR RE RER RRRASRÉRRRRRRERÉRAR 
ORG S94E7? 

AO EQU S$2 

AD2 EQU ADI+1 


ÉRRARRÉRRRRARAANÉRÉRRRRRAR 


* * 


* 00 : fleche ” 


* O1 : ciseaux . 
* 02 : note de musique di 
#03 £ croix cé 
#* 04 : stylo gl 
* 05 : crayon x 
* 06 : document * 
* 07 : feuille R 
* * 
CELLES LLEIE EEE ELIEEEERELE, 
CHOIX ASL ; multiplication par 2 
TAX 
LDYA TI F1, X 
DOA TI. X 
STA AD2 
STY ADI 
RTS 
Ti DD8 FLECHE 
DDB CISEAUX 
DDB NOTE 
DDB CROIX 
DDB STYLO 
DDB  CRAYON 
DDB DOC 
DDB FEUILLE 
FLECHE HEX 2D2D1E3F3720353F374D0E0E2527270 600 
CISEAUX HEX 2E2E2E2E2E0EAE6SE4FF1B16F6E7646D4043432826 
HEX 2017240600 
NOTE HEX 2E2D0C3F272D252424242424240E0E2E3E2E1E3600 
CROIX HEX 20B40A20D73326C03F0500 
STYLO #EX 49E40DFCIC2D2D2424242424242424242424BF9212 
HEX 242444633C373E363636363636363636362600 
CRAYON HEX 653F2C2D0C6464246724273F172EDEF6F6363500 
DOC HEX 2D0E2E2D2D3536363E3F3F3F3F3F2724242C458328 
2D0500 
FEUILLE WEX 36363636362D2D2D2D252424243F27240E0EDC183F" 


3F0600 








Source SOURIS 
Assembleur ProCODE 


RRRRRRRARRARARRERR RD RE DH RRRRARARRRRR STAR RRRR RENAN RER ED À 


+ 


* 


* 


AARKARRARRRÉRRRERARRRRRRMRERARRARERARRÉÉRAARERREREMRREN ER EX 


Programme de gestion de souris 


ORG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


£EQUu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


$9000 


Sc412 
$c413 
$SC4i4 
SC415 
$C416 
SC41? 
$C418 
$c419 


$0 
$6 
$7 
58 
S2078 
$2079 
$207A 
$207B 


s2 
F1+1 


$SF65D 
SF41l 
SE? 


$95F8 
$95F9 
S95FA 
S95F8 
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COM 


FIRST 


DEBUT 


T2 


T1 


Can0 


CaM1 


COM 2 


CaM3 


COM4 


COM5 


S95FC 


#1 
#<INIT 
CALL 
#501 
#<SET 
CALL 
F<CLEAR 
CALL 
#0 
X1 
X2 
V4 


FLECHE] 


MT: 
TASEI,NY. 
T2+] 
T2+2 
COMO 
LECTURE 


CcoMm0 
COMI 


BIT2 
RES2 
#5FF 
RES 
COM 


#scO 
BIT 
BIT2 
#S80 
RES 


jinitialisation dé 14 souris 
COM6 


sen mode passif 
;remise a zero des cocrdonnees 


LECTURE 


;fin de l'initialisetion 


XFAUX 


XOK 


ordre poids fort / poids faible 


YE AUX 


YOK 


S1 


S2 


GE 





#<READ 
CALL 
S5?C 


vYel 
(CADRE) , Y 
Si 

Ss1 

R2 

#5 


fCADRE) , Y 
S2 
S2 
R2 


#1 

XXe 
fCADRE) , Y 
s3 

#0 

XX1 
(CADRE), Y 
54 

54 

R2 

#1 
(CADRE), Y 
S4 

R2 


‘1ead mcuse 


/Si superieur à YI4IN 


;si inferieur à YMEX 


;maintenant on teste X 
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{CADRE ),Y 

A2 :ok 

A2 ;ok aussi 
{CADRE) , Y 

A2 stermine 


RETOUR 
S77C 
#520 
A5 
A3 ELECREI 
FLÈCHE 
A5 LECTURE 


RETOUR $77C 
BIT2 
R£ES2 
Ad 
FLECBE1 


C400+1 
SC400 
Ci+1 
#SC4 
#540 
ei SC400 


FLECHE XX1 


FLECHEÏ 


Récapitulation 
SETCURSOR.C 


Après avoir saisi ces codes sous 
moniteur, vous les sauvegarderez par : 
BSAVE SETCURSOR.C, AS94E7, L212 


94E7:0A 

94E8:2A BC FS 94 BD F4 94 85 
94F0:03 84 02 60 95 04 95 15 
94F8:95 2F 95 44 95 4F 95 77 


9500:95 
9508:37 
95%0:25 
9518:2E 
9520:16 
9528:2B 
9530:2D 
953824 
9540:2E 
9548:D7 
9550:E4 
9558:24 





Source INVERSION 
Assembleur ProCODE 


RRRRRARRARERR RÉ RÉRÉARRERRRÉAÉRR 
* 


* procrar.mre d'inversion d'une 
* 


* 


* delimitant la zone. 


* 
* 
* 
* zone corresgendant aux octets * 
* 
* 
Lz * 

* 


ARR RER RÉ ÉRÉRRttttRRR 


ORG S95C0 


HÉRÉTÉRÉÉRRRRRRÉRÉRRRRÉRRÉREÉÉREREÉRRE ER 


* + 
#* {0)],6 x 8) * 
m0), * 
MUC ON, 2 ( longueur de 1a 2ene ) * 
AN CU ( hauteur de 1a zone } * 
* * 
* * 


LRRÉRÉRRARRRRRRRRR RAR RAR RÉ ARR RAR ARR RÉ 


LOY #1 
LDA  {0),x 
LOX #0 
L8Y #0 
SF41i 
#2 
(07, Y 


;scharge ŸY 


= 
ci 


(0),Y 


(526), Y 
#SFF 
(S26),Y 


9560:24 
9568:3C 
957036 
95%a:2F 
9580:24 
9588:36 
93390:75 
9598°3F 
95A0;:2D 
95A8:2D 
9580:3F 
95B8:3F 


NS  —— ——cm 
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Récapitulation 91C0:79 20 85 07 AD 7A 20 85 9378:A6 B9 8E B6 94 AO 94 A2 
91C8:08 18 60 8E CF 91 AE 00 9380:D1 20 8F 94 BO 08 A9 00 
SOURIS.C 91D0:C4 8E D9 91 A2 C4 AO 40 9388:20 1C 90 4C B1 00 AE B5 
91D8:4C 00 C4 AD 78 20 85 06 9390:94 86 B8 AE B6 94 86 B9 
91E0:AD 79 20 85 07 AD 7A 20 9398:A0 94 A2 CF 20 8F 94 BO 
Après avoir saisi ces codes sous 91E8:85 08 A6 06 A4 07 AS 08 93A0:08 A9 01 20 1C 90 4C B1 
moniteur, vous les sauvegarderez par 91F0:20 11 F4 A9 O1 85 E?7 A9 93A8:00 AE B5 94 86 B8 AE B6 
BSAVE SOURIS.C, A$9000, L512 91F8:00 A4 03 A6 02 4C 5D F6 93B0:94 86 B9 20 B7 00 C9 BF 
93B8:D0 15 20 B1 00 AO 94 A2 
9000:A9 01 A2 19 20 CB 91 A9 E 2 = 93C0:D1 20 8F 94 BO A2 A9 05 
9008:01 A2 12 20 C3 91 A2 15 Récapitulation 93C8:20 1C 90 4C B1 00 60 AE 
9010:20 CB 91 A9 00 85 06 85 INTERF A CE C 93D0:B5 94 86 B8 AE B6 94 86 
9018:07 85 08 60 48 20 EA 91 . 93D8:B9 AO 94 A2 D8 20 8F 94 
9020:68 OA A8 B9 35 90 BE 36 93E0:D0 86 20 B1 00 20 67 DD 
9028:90 8E 30 90 8D 31 90 20 Aprés avoir saisi ces codes sous 93E8:20 OC El A5 Al 8D DD 94 
9030:43 90 4C CF 90 90 43 90 moniteur, vous les sauvegarderez par : 93F0:A5 AO 8D DE 94 20 B7 00 
9038:57 90 6B 90 ?7F 90 91 90 BSAYE INTERFACE.C, A$9200, L739 93F8:C9 2C DO D2 20 B1l 00 20 
9040:A5 90 BB A9 80 8D F8 95 9400:67 DD 20 OC E1 A5 AI 8D 
9048:8D FA 95 8D F9 95 8D FB 9200:A9 4C 8D F5 03 A9 10 8D 9408:DF 94 20 B7 00 C9 C1 DO 
9050:95 A9 00 8D FC 95 60 A9 9208:F6 03 A9 92 8D F7 03 60 9410:7D 20 Bi 00 20 67 DD 20 
9058:80 8D F8 95 8D FA 95 A9 9210:C9 B5 FO 11 C9 49 FO 16 9418:0C E1 A5 AI 8D EO 94 A5 
9060:00 8D F9 95 8D FB 95 8D 9218:C9 43 FO OF C9 83 FO 08 9420:A0 8D El 94 20 B7 00 C9 
9068:FC 95 60 A9 80 8D F8 95 9220:C9.9E FO 19 60 4C 69 93 9428:2C DO 63 20 B1 00 20 67 
9070:8D FA 95 8D FC 95 A9 00 9228:4C F2 92 4C AO 92 AO 94 9430:DD 20 OC El A5 A1 8D E2 
9078:8D F9 95 8D FB 95 60 A9 9230:A2 B7 20 8F 94 BO ED 20 9438:94 A9 DD 85 00 A9 94 85 
9080:80 8D F8 95 8D FA 95 8D 9238:00 90 4C B1 00 20 B1 00 9440:01 20 B7 00 C9 5D DO 46 
9088:F9 95 8D FB 95 8D FC 95 9240:C9 28 DO EO 20 B1 00 20 9448:20 B1 00 C9 29 FO 32 C9 
9090:60 A9 00 8D F8 95 8D FA 9248:67 DD 20 OC E1 A5 A1 8D 9450:CE DO 3B 20 Bl 00 A6 B8 
9098:95 8D FB 95 A9 FF 8D F9 9250:DD 94 20 B1 00 20 67 DD 9458:8E B5 94 A6 B9 8E B6 94 
90A0:95 8D FC 95 60 A9 CO 8D 9258:20 OC El A5 Al 8D DE 94 9460:A2 D1 AO 94 20 8F 94 90 
90A8:F8 95 8D FA 95 A9 80 8D 9260:20 B7 00 C9 3A DO BD 20 9468:1D AE B5 94 86 B8 AE B6 
90B0:F9 95 8D FB 95 A9 00 8D 9268:B1 00 C9 E3 DO B6 20 B1 9470:94 86 B9 A2 CF AO 94 20 
90B8:FC 95 60 A9 00 8D F8 95 9270:00 C9 DO DO AF 20 B1l 00 9478:8F 94 B0 12 A9 02 4C 88 
90C0:8D FA 95 8D F9 95 8D FB 9278:20 67 DD 20 OC El A5 Al 9480:94 A9 04 4C 88 94 A9 03 
90C8:95 A9 FF 8D FC 95 60 A2 9280:8D DF 94 20 B1 00 20 67 9488:20 1C 90 4C B1 00 60 8E 
90D0:14 20 CB 91 AD 7C 05 FO 9288:DD 20 OC El AS Al 8D EO 9490:A1 94 8C A2 94 8E A7 94 
90D8:19 C9 O1 FO 15 C9 O2 DO 9290:94 A9 94 85 01 A9 DD 85 9498:8C A8 94 A2 00 20 B7 00 
90E0:07 AD 7C 04 C9 2F 90 0A 9298:00 20 CO 95 4C Bi 00 60 94A0:DD 00 02 DO 0E E8 BD 00 
90E8:A9 02 8D 7C 05 A9 2F 8D 92A0:20 B1 00 C9 55 FO 1B A0 94A8:02 FO 06 20 B1 00 4C AO 
90F0:7C 04 AD FC 05 FO 15 C9 92A8:94 A2 C3 20 8F 94 BO EF 94B0:94 18 60 38 60 00 00 49 
90F8:01 DO 07 AB FC 04 C9 ?7F 92B0:AD 12 C4 8D BD 92 A9 00 94B8:4E 49 54 28 4D 4F 55 53 
9100:90 OA A9 D1 8D FC 05 A9 92B8:A2 C4 AO 40 20 00 C4 4C 94C0:45 29 00 4C 4F 53 45 28 
9108:7F 8D FC 04 A2 16 20 CB 92C0:B1 00 20 B1 00 C9 52 DO 94C8:4D 4F 55 53 45 29 00 4E 
9110:91 AD 7C 04 8D 78 20 AD 92C8:D6 20 B1 00 C9 53 DO CF 94D0:4F 50 52 45 53 53 29 00 
9118:7C 05 8D 79 20 AD FC 05 92D0:20 B1l 00 C9 28 20 B1 00 94D8:4F 55 54 5B 00 00 00 00 
9120:8D 7B 20 AD FC 04 8D ?7A 92D8:20 67 DD 20 OC El A5 A0 94E0:00 00 00 
9128:20 4E 79 20 6E 78 20 4E 92E0:D0 OF AS A1 20 E7 94 20 
9130:7B 20 6E 7A 20 AD FC 95 92E8:B1 00 C9 29 DO 03 20 B1 
9138:F0 57 AO 02 AD 7A 20 D1 92F0:00 60 20 B1 00 C9 28 DO Récapitulation 
9140:00 FO 05 BO 03 4C B7 91 92F8:F8 20 B1 00 20 E3 DF A5 
9148:A0 05 18 D1 00 FO 05 90 9300:83 8D B5 94 AS 84 8D B6 INVERSION.C 
9150:03 4C B7 91 AO O1 AD 79 9308:94 20 B1 00 20 E3 DF A5 
9158:20 D1 00 DO 0E AO 00 AD 9310:83 8D DD 94 A5 84 8D DE 
9160:78 20 D1 00 FO O0E BO OC 9318:94 20 B1 00 20 E3 DF A5 Après avoir saisi ces codes sous 
9168:4C B7 91 AO O1 D1 00 BO 9320:83 8D DF 94 AS 84 8D EO moniteur, vous les sauvegarderez par : 
9170:03 4C B7 91 AO 04 AD 79 9328:94 20 B7 00 C9 29 DO CI BSAVE INVERSI@N.C, AS$95CO, L5é 
9178:20 D1 00 DO O0B AO 03 AD 9330:A9 06 20 IC 90 A4 08 20 
9180:78 20 D1 00 FO OB 90 09 9338:01 E3 AE DD 94 AC DE 94 
9188:D1 00 90 05 FO 03 4C B7 9340:20 2B EB A5 07 A4 06 20 95C0:A0 01 B1 00 A2 00 AO 00 
9190:91 AD 7C 07 2D F8 95 CD 9348:F2 E2 ÀE B5 94 AC B6 94 95C8:20 11 F4 AO 02 B1 00 AA 
9198:F9 95 FO 10 AD 7C 07 29 9350:20 2B EB AD 7C 07? 29 80 95D0:A0 00 B1 00 A8 88 C8 B1 
91A0:20 FO 06 20 EA 91 20 DB 9358:A8 20 01 E3 AE DF 94 AC 95D8:26 49 FF 91 26 CA DO F6 
91A8:91 4C CF 90 AD ?7C O7 2D 9360:E0 94 20 2B EB 4C B1 00 95E0:A0 01 B1 00 AA E8 8A 91 
91B0:FA 95 CD FB 95 DO E5 20 9368:60 20 B1 00 C9 28 DO F8 95E8:00 AO 03 Bl 00 AA CA FO 
91B8:EA 91 AD 78 20 85 06 AD 9370:20 Bl 00 A6 B8 8E B5 94 95F0:06 8A 91 00 4C CO 95 60 
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Reliures Pom's 


Pour la protection de 
votre précieuse 
documentation, pour 
en faciliter la 
consultation, pour 
rendre agréable la 
recherche d'un CALL ou 
d'un PEEK égaré... 


Humeur... 


.… OÙ plutôt mauvaise humeur ! Pom's publie suffisamment 
de sources écrits avec l'assembleur ProCODE pour ne pas 
être soupçonné da priori défavorable... Bien que doté de 
qualités, bien qu'assemblant sans problème, bien que 
gérant plusieurs fichiers en mémoire, bien que produit 
français, ProCODE est ergonomiquement affligeant : 


Impossible d'annuler une suppression de ligne involontaire, 

Impossible de supprimer directement la dernière ligne. 

Impossible d'insérer une ligne avant la première (ii faut la 
dupliquer), 

Facile de sauvegarder un fichier en écrasant un ancien 
portant le même nom (pourtant ProDOS permet de savoir 
aisément si un fichier existe déjà : pourquoi ne pas 
prévenir l'utilisateur...). 

Faciles les erreurs dans les noms de fichiers : la saisie n'est 
pas contrôlée, 

Facile de tout perdre : on vide la mémoire sans proposer au 
préalable la sauvegarde, 

Impossible d'imprimer sans assembler (agréable en cours 
de conception lorsque toutes les étiquettes ne sont pas 
définies...). 

Obligé de sortir du programme pour changer le port de 
l'imprimante, 

Impossible de sauvegarder sous le nom 
/UNIDISKS3.5/FICHIERS car on ne peut dépasser 15 
caractères : obligé de définir un préfixe, 

Impossible de déverrouiller un fichier : l'option supprimer s'en 
trouve limitée... 


Bientôt une version agréable à utiliser ? 





Cryptage.…. 








Une erreur s'est glissée dans l'article d'accompagnement de la 
commande externe "KRUPTOS’ du précédent numéro. Cryptage et 
décryptage s'obtiennent par la commande : 

{,S n° slot] [,D n° drive] 
On pouvait le déduire par la lecture de la fin du source. Ceci n'a pas 
empêché trois lecteurs de découvrir la clef de codage du fichier 
"SECRET" : «RM.7» ; le bit de poids fort, toujours identique sur les 
fichiers AppleWriter, était un indice non négligeable, bravo. 


CRYPTE nom fichier, clef 


Mathématiques, 
Physique et Basic, 


par Thierry Robin, 
Editions Ellipses 
156 pages 


Après une vingtaine de 
pages générales sur l'infor- 
matique et le Basic, puis une 
quarantaine de pages sur 
l'analyse numérique, l'au- 
teur montre comment 
résoudre, à l'aide de 
programmes en Basic, 35 
problèmes scientifiques, 
dont des problèmes du 
concours d'entrée à l'X. C'est 
dire que la lecture de ce 
livre, pour intéressante 
qu'elle soit, risque de rebuter 
ceux qui n'ont pas de bonnes 
bases mathématiques. Le 
titre est d'ailleurs un peu 
trompeur : à de rares 
exceptions près, il s'agit de 
problèmes de mathéma- 
tiques. Le livre est clair et 
bien fait ; il aurait toutefois 
gagné à être présenté avec 
des listings utilisant des 
indentations. 





Erratuin 


reluires toillées bordeaux, logo Pom's, pour 6 numéros : 
60,00 F TTC franco, bon de commande page 74 
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MultiScribe 2.0 


Un traitement de textes en DHGR 


Bernard Toméno 


MultiScribe tourne sur Apple //e 
128Ko, //c et IIGs. Il fonctionne 
sous ProDOS, en double haute 
résolution graphique, avec ou 
Sans souris et use largement des 
fenêtres et menus déroulants : 
bref, un vrai programme 
Macintosh mais sur Apple //, ce 
qui est une belle performance. 


Bien sûr, les affichages, la 
rapidité de réaction, le 
déroulement des menus gagnent 
en agrément sur le 116s. 


Le programme occupe les deux 
faces d'une disquette 140Ko qui 
doit rester en ligne, car le système 
a recours au disque pour changer 
de police de caractères, stocker 
un ‘copier’, etc. 

Pour plus de confort, la souris et 
deux lecteurs de disquettes sont 
souhaitables. L'ensemble des 
fichiers gagne à être placés sur 
une disquette 800Ko. 


L'utilisation est particulièrement 
intuitive : MultiScribe est une 
réplique fidèle du traitement de 
textes MacWrite disponible sur le 
Macintosh. Les conventions 
d'ergonomie adoptées sur cette 
machine ont été fidèlement 
respectées. 


La typographie 


Ce qui fait la force et la beauté de 
MultiScribe : dix polices de 
caractères en proportionnel dont 
l'inévitable Gothique. L'utilisa- 
teur en créé autant qu'ils le 
souhaite grace à l'éditeur livré sur 
la même disquette. 

Pour chacune d'elles, il est pos- 
sible de définir 5 tailles de 
caractères et 10 styles de 
présentation (voir l'exemple). 
Chaque type de police, taille et 
style peut être choisi avant d'être 
utilisé ou bien redéfini a 
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posteriori sur un texte déjà 
existant (qui a pu être créé à l'aide 
d'Applework, Epistole Apple 
Writer, etc). 


Fonctionnalités 


On trouve sur MultiScribe les 
classiques fonctions de définition 
de marges (droite et gauche), 
justification (droite, gauche, 
totale, centrée), espacement de 
lignes variable, chercher et 
remplacer, couper/copier/coller. 
I] faut aussi noter les possibilités 
de définir des hauts et bas de 
pages automatiques (pouvant 
inclure date et heure si vous avez 
la carte horloge), une 
numérotation automatique des 
pages, l'insertion de saut de 
pages. 

Le déplacement dans le texte 
s'obtient par la touche G> ou 
G<, Gchiffre (comme dans 
Applework ) ou à l'aide de la 
souris et du classique ascenseur 
latéral. 


Environnement 


On peut choisir son interface (45 
propositions, séries ou parallèles) 
et son imprimante (11 machines 
dont ImageWriter, DMP, Epson 
FX, RX et MX, Okidata 921BM, 
92STD, Scribe, Brother) et 
sauvegarder ce choix sur disque. 
On peut aussi définir son format 
de papier (4 possibilités, la plus 
utile en France étant Fanfold 
Intemawonal). 

Les textes peuvent être 
sauvegardés sur tous supports 
(merci ProDOS), sur 5 1/4 ou 3 
1/2, disque dur, ou disque virtuel 
volatile, ceci en format 
MultiScribe ou en format TEXT 
(ASCII). Il existe des options 
pour formater une disquette et 
détruire un fichier. 


L'impression 


Cinq qualités d'impression papier 
sont offertes, de plus en plus 
noires et lisses, le temps 
d'impression croissant avec la 
qualité, plus une qualité courante 
non graphique, plus une 
visualisation à l'écran avant 
d'imprimer. Pour la meilleure 
qualité, la tête d'impression passe 
quatre fois sur la même ligne. 

Il y a la possibilité de choisir le 
feuille à feuille ou le papier 
continu, l'impression totale ou 
partielle d'un texte, l'impression 
de plusieurs documents chaînés, 
la numérotation automatique des 


pages. 


L'éditeur de 
polices 


D'une fort belle présentation, il 
permet de créer ses propres 
polices, ou de modifier celles qui 
sont sur la disquette (francisation 
facile de certains caractères 
typiquement américains, Création 
de lettres accentuées, de 
symboles scientifiques, ou même 
de petits logo ou dessins divers 
comme æ par exemple). 


Options 

Pour quelques dollars de plus 
vous pouvez acheter des 
“options” : 


* Accessoires de bureau type 
Macintosh (horloge, calen- 
drier, calculette...) ; 

+ Jeux de polices de caractères 
supplémentaires ; 

° ‘Picture Manager pour mé- 
langer 
dessins et texte ; 

+ Correcteur d'orthographe (in 
english, sorry..….). 


Points forts, regrets 


Au chapitre points forts, on 
trouve la qualité de l'ergonomie et 
de la présentation à l'écran 
graphique, les nombreuses 
possibilités de typographie et 
d'impression, le couper/coller, 
l'ouverture des fichiers par une 
fenêtre de sélection : nul besoin 
de se rappeler l'orthographe 
exacte des nom de fichiers. 

Les menus déroulants dispensent 
l'utilisateur de se rappeler la 
syntaxe de telle ou telle fonction : 
le_ menu et la fenêtre de 
remplacement sont plus plaisants 
que : 


CTRL-F $$paris$SParista... 


Rien n'étant parfait (quoi que...) 
en ce bas monde, on peut 
regretter: 


+ l'absence de glossaire ; 

+ les possibilités très limitées de 
mélanger plusieurs textes ou 
fragments de texte à l'écran (on 
annonce une version [Gs qui le 
pourrait) ; 

+ l'impossibilité de sauvegarder 
sur disque les informations 
concernant le format du 
papier ; 

° l'impossibilité d'annuler la 


dernière commande ; 

e l'absence d'un WPL, ce 
langage d'AppleWriter qui 
permet d'automatiser les 
commandes répétitives, faire 
des maïilings, etc. 


Dernier problème : sur un Apple 
{Je avec Carte Féline, MultiScribe 
ne fonctionne pas (illisibilité à 
cause d'un problème d'affichage 
en double haute résolution). 
Don't panic... la solution est à la 
fin de ce papier. 


Commercialisation 


MultiScribe est vendu par 
Styleware inc. (5250 Gulfton 
suite E, Houston, Texas 77081) à 
un prix défiant toute concurrence 
(60 dollars). Il suffit d'écrire en 
précisant son numéro de carte de 
crédit et la date d'expiration : 15 
jours après, MultiScribe est chez 
vous avec un manuel clair et bien 
présenté. 

La disquette n'est pas protégée 
comme bien des softs américains 
aujourd'hui : mais MultiScribe est 
si bien fait et si bon marché qu'on 
ne doit pas avoir envie de le 
copier pour les copains. Ceux qui 
l'on écrit méritent un coup de 
chapeau et notre honnêteté. 


Recette pour un 
Apple //e avec 
carte Féline 


Avec la disquette ARLEQUIN, 
créez une disquette SYSTEM 
(elle contiendra donc PRODOS, 
ARLEQUIN.SYSTEM qui est un 
Basic amélioré, ainsi que les 
fichiers GLIDATA, GLI16.2, 
GLI.ERRORS, IWIICOLOR- 
COPY) et donnez lui le nom de 
/MULTISCRIBE. 

Sauvez y un STARTUP ainsi 
conçu : 


10 D$ = CHRS(4) : PRINT DS 
"PREFIX/MULTISCRIBE" 

20 & BACK (17} : & WINDOW 
{ 0,19,0,191,1 ) : & MO 
DE (1) : & SETVAR ( 50, 
16 } :& DISPLAY (9) : P 
OKE 49234,0 : PRINT DS 
“BLOAD MS.SYSTEM, TSYS, 
A$2000 " 

30 & DISPLAY ( 1 ) : CALL 
8192 

Puis recopier sur la disquette les 

fichiers de la face 1 du disque 

MULTISCRIBE, et au verso 

ceux de la face 2. C'est tout. 





HUBDISERIEE 740 Quelques possibilités 


traitement de textes en PHGR 


Dix pelices de 
perdre la Justification 
caractères mixables à 


justification totale, 


mixabies à l’intérieur d’un meme 
justification totale, 


caractères 
totale, +? 
l'intérieur 


mixables à 


compris 
d'un meme 
compris 
texte 


l’intérieur 
avec 


tente 


d’un 


texte sans 
polices de 


d’un meme 
le 8. Dix 


sans perdre la 


avec le & Dix polices de caractères 
sans 


perdre La 


u compris avec le &. Dix 


polices de caractères mixables l'intérieur d'un 
même tèxte fans perdre la iuñtitficatiton totale, y 
comprir avec Le €&- 

Un caractère peut être standard, gras, ftalique , soaulione, 
owbré, vellef, MIT su <“Posent, double hauteur, 
double ImLe- eur. Ces differents arguments sont 
compatibles entre-eux gras ifamliqse SOMIIiSRE , 


roue clou bBUe 


Dec Je CE .…. 


Sr, 
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Dhg r Tool : un outil graphique 


La double haute résolution 
graphique permet de 
disposer de 560 x 192 points 
sur un Apple //c ou un //e 
avec mémoire étendue à 
128Ko. Mais l'Applesoft ne 
présente aucune facilité 
pour son accès et son 
utilisation reste délicate. 


Une image DHGR réside entre 
$2000 et $3FFF en mémoire 
principale et entre $2080 et 3FFF 
en mémoire auxiliaire, occupant 
16Ko de MEV. Toutes les 
colonnes paires de l'écran 80 
colonnes correspondent à la page 
auxiliaire, toutes les colonnes 
impaires à la page principale. Le 
microprocesseur de l'Apple ne 
pouvant adresser que 64K0, 
l'accès à la mémoire auxiliaire ne 
peut se faire que par 
l'intermédiaire de bascules 
logicielles. 


Chargement et 
sauvegarde 
d'images DHGR 


Il est possible de stocker une 
image DHGR dans deux fichiers 
de 8Ko chacun, correspondant à 
la page graphique 1 en mémoire 
principale et la page graphique 1 
en mémoire auxiliaire (Cf les 
images de Purplesoft). 


Dans ce cas, le chargement se fait 
en deux fois : une image est 
chargée en mémoire principale, 
puis transférée dans la page 1 
auxiliaire en utilisant la routine 
AUXMOVE. Le deuxième fichier 
est alors chargé en page 1 de la 
mémoire principale. 


DhgrTool simplifie le processus 
en chargeant directement l'image 
en mémoire auxiliaire à partir du 
disque, sans passage par la 
mémoire principale. 
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1 paraît plus logique de sauver 
l'image DHGR dans un fichier 
unique. Pour cela, DhgrToo!i 
transfère la page 1 auxiliaire en 
page 2 principale et l'image est 
sauvegardée par copie de 
l'ensemble des 2 pages HGR 
principales sur le disque (BSAVE 
IMAGE, A$2000, L$S3FF8). 


Le fichier comporte 33 blocs sous 
ProDOS ou 67 secteurs sous 
DOS 3.3. Le processus inverse a 
lieu au chargement : la page 
HGR2 principale est transférée 
dans la page 1 auxiliaire. 


Tous les vétérans de l'Apple 
disposent d'images graphiques 
simple haute résolution. Celles-ci 
peuvent être converties de deux 
façons : 
* deux images HGR combinées 
en une image DHGR : on 
charge successivement chacune 
des images HGR en page 2 et le 
sous-programme AÆAGHDAGR 
transfère chacune des 40 
colonnes alternativement en page 
1 auxiliaire et 1 principale. 
CALL H1,0 transfère la première 
image 
CALL H1,20 la deuxième 
* conversion d'une image HGR 
en image MBDAGR «=: le 
sous-programme DBLHGR dupli- 
que horizontalement chaque point 
de l'image HGR. Chaque octet de 
l'image initiale donne deux octets 
dont l'un est chargé en 1 
auxiliaire et l'autre en page 1 
principale. 


Manipulation 
d'images DHGR 
par DhgrTool 


1— afficher une image 


Les opérations suivantes sont 
nécessaires : 


- déconnecter AN3 par lecture de 
l'adresse 49246 


Roland Jost 


- déconnecter ALPZP par POKE 
49160,0, qui permet de 
commuter uniquement entre les 
adresses $2000-$BFFF 

- passer en mode 80 colonnes 
par POKE 49165,0 (80 COL 
ON) 

- déconnecter TEXT en peekant 
en 49232 

- peeker en 49239 (HIRES ON) 
pour activer le graphisme haute 
résolution 

- peeker en 49234 (MIXED 
OFF) pour avoir accès à la 
totalité de l'écran. 


2—effacer l'image 

- effacer la page 1 par le HGR 
classique 

- commuter la 
(auxiliaire) par 
49237,0 (PAGE2 ON) 

- effacer la page 1 A par CALL 
62450 

- revenir en page 1 par POKE 
49236,0 (PAGE2 OFF). 


page IA 
POKE 


3— négatif de l'image 
Le programme assembleur 
effectue un EOR $FF Sur tous les 
octets de la page HGR 1 
principale et de la page 1 
auxiliaire 


4—sauvegarde en 
mémoire auxiliaire et 
rappel 
Une image peut être sauvée dans 
la mémoire auxiliaire en 
$4000-7FFF ou S$8000-BFFF. 
Le sous-programme TRANSFERT 
permet les déplacements 
suivants : 
Pour le transfert de 2 pages 
CALL TRANSFERT, 2,2 

2A vers 1 ;, 3 A vers IA 
CALL TRANSFERT, 3,2 

1 vers 2A ; I A vers 3A 
CALL TRANSFERT, 4, 2 

4A vers 1 ; SA vers 1A 


CALL TRANSFERT, 5,2 
1 vers 4A ; 1A vers SA 


FUTPE 


ETETETI 


Eigi 





Pour le transfert d'une 
seule page 
CALL TRANSFERT, 0, 1 

l'A vers 2 
CALL TRANSFERT, 1,0 

2 vers 1A 
Pour les deux derniers cas, 
l'appel à TRANSFERT doit être 
précédé d'un POKE 49152, 0 (80 
STORE OFF) et suivi d'un POKE 
49153, 0 (80STORE ON). En 
effet 80STORE ON a priorité sur 
les commutateurs RAMRD et 
RAMWRT utilisés par AUX- 
MOVE pour réaliser le transfert. 
D'autres possibilités peuvent être 
obtenues en complétant ou 
modifiant les tables DEBUTI, 
FINI, NOUVI, DEBUT2, 
FIN2, NOUV2 (lignes 259 à 264 
dans le source) 


5—négatif d'une moitié 

d'image 

On peut inverser la moitié gauche 
ou la moitié droite. DHGRTOOL 
ne propose que l'inversion de la 
partie gauche. Pour inverser la 
partie droite faire d'abord un 
négatif de toute l'image, puis 
inverser la partie gauche. 


6—échange des moitiés 
gauche et droite 
Intéressant lorsque l'image 
DHGR a été obtenue à partir de 
deux images HGR normales, ou 
pour des effets spéciaux. 


7—copie d'une moitié 
dans l'autre 


8—effet de miroir 
horizontal) 


DHGRTOOL.O0 


Toutes ces opérations sont 
effectuées par le programme 
Assembleur DHGRTOOL.0 qui 
est basé sur l'utilisation de la 
routine AUXMOVE et sur les 
commutateurs PAGE2 ONet 
PAGE2 OFF (qui permettent de 
travailler respectivement sur la 
page 1 ou la page 1A). 


La routine AUXMOVE 


AUXMOVE permet le transfert 
de blocs de données entre la 


mémoire principale et la mémoire 
auxiliaire, dans les deux sens. 
Elle est installée dans l'espace 
mémoire $C300-$C3FF et 
commence en $C311. 


Comme la routine MOVE du 
moniteur , elle utilise les adresses 
$3C - $43 pour délimiter la zone 
à transférer et l'adresse d'arrivée. 


$3C AIL octet bas de l'adresse 
de début du bloc à transférer 

$3D AIH octet haut de l'adresse 
de début 

$3E A2L octet bas de l'adresse 
de fin de la zone à transférer 

$3F A2H octet haut de l'adresse 
de fin 

$42 A4L octet bas de l'adresse 
d'arrivée 

$43 A4H octet haut de l'adresse 
d'arrivée 


De plus , c'est la valeur de la 


retenue qui détermine le sens du 
transfert : 


C=1: mémoire principale vers 
mémoire auxiliaire 

C=0: mémoire auxiliaire vers 
mémoire principale 


Le commutateur PAGE2 


En mode HGR normal, PAGE2 
permet l'accès à la page HGR 2. 
En mode 80 colonnes et double 
haute résolution, et lorsque 
80STORE est actif, un POKE 
49237, 0 permet au processeur 
d'adresser la page 1A , alors 
qu'un POKE 49236,0 permet 
l'adressage de la page 1. 


Implantation des divers 
programmes 


$6022 Négatif de la page DHGR 

$6047 Renverse l'image DHGR 
(miroir) 

$6099 HGR > DHGR : dilate 
une image HGR 

$60E3 deux images HGR 
placées côte à côte utilise le 
sous-programme 
CALCADR et les tables 
TABILet TABIH 

$6186 échange les deux moitiés 
de l'image DHGR 

$61D2 copie la moitié gauche 
dans la partie droite 

$6216 copie la moitié droite dans 


la moitié gauche 
$625C négatif de la partie gauche 
$626F négatif de la partie droite 
$62AF transfert de pages 
graphiques 
$633E correction d'erreurs. 


HardCopy de 
l'écran DHGR 


Une copie d'écran peut être 
obtenue avec le programme 
HARD de Marc Debuigne (Pom's 
n° 18). Mais la page 2 étant 
utilisée, il faut le reloger . Il a été 
choisi de le charger en $1000. Il 
faut donc poker $10 dans les 
octets $10D0, $10EE, $10F3, 
$115B, $1165, $1187. 


En basic : POKE 4304, 16: 

POKE 4334,16: PORKE 

4339,16: POKE 4443,16: 
POKE 4453,16: POKE 4487,16. 


Le programme HARD original 
permet d'imprimer une image en 
deux tailles 560*192 (1:1) et 
1120*364 (2:2). En masquant 
quelques instructions, on dispose 
de deux possibilités supplé- 
mentaires : (2:1)et (1:2). Voici la 
méthode : 

Pour image 2:1 


Faire les pokes suivants : POKE 
768,128: FOR I=0 TO 4: 
POKE 4423+I1,234: NEXT. Ceci 
revient à mettre NOP dans les 
adresses $1141 à $1145. 


Pour image 1:2 


POKE 768,128: FOR I=5 TO 7 
: POKE 4423+I,234: NEXT. On 
met NOP dans les adresses 
$1146 et $1147. 


Après la hardcopy il faut restaurer 
le programme initial ($1141: 2C 
00 03 10 03 20 ED FD) par la 
séquence : POKE 4423, 44: 
POKE 4424,0: POKE 4425,3: 
POKE 4426,16: POKE 4427,3: 
POKE 4428,32: POKE 
4429,237: POKE 4430, 253. 


Le programme HARD original 
présente un inconvénient lorsqu'il 
est utilisé sous ProDOS, car il 
déconnecte ce dernier. En effet, 
HARD modifie les pointeurs 
CSWL/CSWH en page zéro , ce 
qui est à éviter. Il est préférable 
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de passer par les adresses $BE30 
du BI (ProDOS) (cf. Beneath 
Apple ProDOS). Les pointeurs 
sont modifiés par les routines 
ACTIVE et DESACTIV de 
DHGRTOOIL. HARDest patché 
en conséquence (voir la ligne 
20097 dans DHGRTOOL). 


Utilisation de 


DHGRTOOL.O 
dans d'autres 
programmes 


DHGRTOOL.0 est implanté à 
partir de $800, à la place 
habituelle d'un programme 
BASIC. Ce dernier devra donc 
être placé après la page HGR 2, 


Source DHGR.S 
Assembleur Edasm 
ProDOS ou ProCODE 


{Pour Edasm, LSR, ROR... ne 
concement pas implicitement À ; 

il faut donc les remplacer par LSR À, 
RORA) 


UTILITAIRES DOUBLE HAUTE RESOEUTION 
R.JOST - 1986 


Edesm ProDOS/ProCODE 


* 
* 
. 
* 
# 
* 


ORG $800 
. 

JMP TRANSFERT 
JMP  INVDHGR 
UMP  MIRHOR 
JMP  DBLHGR 
JUMP  HGRDHGR 
JMP ECHANGE 
JUMP  COPYEGD 
JMP  COPIEDG 
JMP  INVGAUC 
JMP  INVDROI 





en $6000. Prendre exemple sur la 
ligne 10 de DHGRTOOL. 


Vous pouvez aussi réassembler 
DHGRTOOL.QO à partir du 
programme source . En tout cas, 
vous devez laisser les pages 
HGR 1 et 2 libres. 


Pour disposer de ia copie d'écran 
graphique , le programme HARD 
(Pom's 18) doit être présent sur 
la disquette. De plus, un certain 
nombre de patches sont 
nécessaires pour le reloger et le 
modifier. Prendre exemple sur les 
lignes 5070, 5080, 5185, 20095, 
20096, 20097. 


Certains sous-programmes de 
DHGRTOOL peuvent être utilisés 
dans vos propres réalisations : 


IMAGES DOUBLE HAUTE RESOLUTION 


Menu Principal ! 


-—gestion des menus ; 
-—sélection d'une page graphique 
du disque (lignes 100-290) ; 
—routine de saisie de nom de 

fichier (lignes 300-490) ; 
—hardcopy (lignes 5000-5300). 


NB : DHGRTOOL ne toume que 
sous ProDOS dont il utilise la 
possibilité de lire le directory 
d'une disquette et les appels au 
Basic Interpreter. Sous DOS 3.3, 
il faudrait modifier la routine de 
sélection d'une image (ligne 100) 
et les patches au programme 
HARD concernant les entrées/ 
sorties. 

DHGRTOOL.C est utilisable sous 
DOS 3.3 à l'exclusion de 
ACTIVE et DESACTIV. 


_- R.Jost (19686) 





Chargement d'une image ! 














Charger une image 16K 


Charger deux images 


Charger une image HGR 


! 
! 
! 
! 
! 
! 
! 
! Charger deux images HGR 
! 
! 
L 
: Retour au MENU principal 
! 
! 
! 


+0 0 ee en 0 40 +0 +8 = + = + + 


Choisir avec les fleches / Valider par <ENTER> / Quitter par <ESC> 


DHGRTOOL : Présentation type "AppleWorks’ et ergonomie plaisante 








SAUVE EQU $09 
LINNUM EQU 550 


UMP ERREUR MEMPRINC EQU S$cO054 ; sélectionne la page 1 
UMP INKEY MEMAUXI EQU  $CO055 ; sélectionne la page 1A 
UMP ACTIVE si 
JMP  DESACTIV INVDHGR NOP 
: * 
i LDX #$00 
AIL EQU $3C ; STX ADRESSE 
AH EQU $3D LDX #$20 
AëL EQU S$S3E STX ADRESSE+] 7 on démarre en $2000 
AZH EQU S3F INVO LDY #$S00 
AL EQU 542 INVI STA MEMAUXI 
Ad4H EQU $43 IA (ADRESSE), Y 
CHOIX EQU $06 EOR #$FF ; inverse un octet en iA 
/ STA (ADRESSE), Y 
AUXMOVE EQU $C311 ; routine de transfert STA MEMPRINC 
R LDA (ADRESSE), Y 
* EOR $$SFF ; inverse un octet en 1 
#* NEGATIF DE LA PAGE DHGR STA  {ADRESSE),Y 
* DEY 
ADRESSE EQU $06 BNE  INVI ; ceci sur 256 octets 














INC ADRESSE+! STA MEMAUXI ; le ler octet est chargé en gage 
















BEX 1A 
BNE INVO set 221 Fcls. LDA LINNUM 
RTS STA (ADRESSE), Y 
* STA MEMPRINC ; ie 2ème en pege À 
* MIROIR HORIZONTAL IDA LINNUM+I 
* STA (ADRESSE ], Y 
MIRHOR NOP DEY 
* BNE  BOUCI 
21 EQU 506 INC ADRESSE+1 
ie EQU $07 DEX 
DEPART EQU 518 BNE  BOUCO 
ARRIVEE EQU SIA RATS 
TAMPON EQU $1ic * 
XI EQU SEB * dédoutie chacun des 7 premiers bits d’un octet HGR 
X2 EQU SEC * et stocke dans deux ectets en censervant le bit de 
y1 EQU S$SED * couleur. cf. Pascal Cantot, Pem's 20 








* 








Y2 EQU SEE 

» DEDOUBLE LDX #500 

3 STX  LiNNUM 
LBPX #S00 STX LINNUM+I 
STX x1 ; initialisation des pointeurs LOX 457 
STX YI DECEL ASL 












STX 21 PHP 

LDX #191 ; 192 lignes JSR  ROLINNUM 

STX 22 PLP 

STX Y»2 JSR  ROLINNUM 

LDX #40 ; 40 octets par ligne DEX 

STX X2 BPL DECAL 
BDRI LDX 21 ; calcul des adresses de départ JSR  ROLINNUM 

JSR CALCADR LSR LINNUM 

STA DEPART RTS 

STY DEPART+I ROLINNUM ROL LINNUM 

LDX 22 ROL  LINNUM+1 













JSR CALCADR ; et d'arrivée RTS 
STA ARRIVEE a 
STY ARRIVEE+i * 2 IMAGES HGR 
LDY X1 ; on traite 1 ligne # 
HOR2 STA MEMAUXI ; on s'occupe de la page 14 * stecke 2 images HGR céête à côte en DHGR 
LSA (DEPART),Y <J 
PHA * copie l'image chargée en page 2 
LDA {ARRIVEE),Y * (S4000-S5FFF) dans une moitié de page DÉGR 
STA (DEPART ),Y * 
PLA * appel par CALL AD,X 
STA (ARRIVEE), Y * X = numéro de la lère colonne ( O<=xX<=20 }) 
STA MEMPRINC : et de la page 1 » 
LDA  (DEPART),Y HGRDHGR  NOP 






LDA {ARRIVEE),Y XA0 EQU SIC 
STA {DEPART ),Y XA1 EQU S$1p 








STA  (ARRIVEE),Y GETBYTC EQU  SE6F5 
INY # 
















EPYOX2 LDY #00 
BNE  HOR2 ; fin de le: ligne ? STY xi 
INC ZI ; on passe à la ligne suivante STY 1 
DEC 22 LDY #40 ; 40 octets 
SEC STY Xx2 
LDÀA 22 LDY #191 ; 192 lignes 
SHENFEN STE Y2 
BCS HORI JSR GETBYTC ; 
RTS STX XAO ; numéro lére colonre 
* STX XAI 
* HGR --> DHGR * 
e BOUCLE LDX Y2 
* transforme une image HGR en image DHGR JSR  CALCADR 
STA DEPART 
DBLHGR NOP TYA 








* CLC 











* ADC #$20 
LDX  #S00 1 STA DEPART+1 }; adresse ligne départ en page 2 
STX ADRESSE JSR CALCADR 
LDX #$20 STA ARRIVEE 
STX ADRESSE+1 ; l'image est en page 1 STY ARRIVEE+1 ; adresse ligne en page 1 ou 1A 
BOUCO LDY 2#$00 LIGNE LDY X1 
BOoUCI LDA (ADRESSE),Y ; on traite teus les octets LDA ({DEPARTJ,Y ; 40 octet war ligne 
STX SAUVE PHA 
JSR DEDOUBLE ; en dupliquant chaque bit INY 
LDX SAUVE LDA (DEPART) ,Y 
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* 


* calcule l'adresse d'un octet en Page HGR à ÿartir 


X1 

Xa1 

MEMPRINC i stocke en page 1 
{ARRIVEE) ,Y 


MEMAUXI 
{ARRIVEE) ,Y 
XA1 
MEMPRINC 
X1 

x2 

LIGNE 
#$00 

X1 

XA0 

XA1 

Y2 

r2 

4$FF 
BOUCLE 


+ stocke en page iA 


* des tables TABIL et TABIF!. 


* 


CALCADR TXA 


TAB1H 


LSR 


TABIL, Y 


#50? 


TABIH,Y 


S00,$80,$00, $80, $00, $80, 500,560 
$28,$A8,$28,5A8,$28,$A8,5$28,$A8 
$50, $D0, $50, SDO, $50, $DO,$50, SDO 
$20,$20,$21, $21, $22,$22,$23,523 
$20,$20,$21,$21, $22,$22,523,523 
$20,$20,$21, $21, 522, $22,$23, 523 


* ECHANGE DE DEUX MOITIES DHGR 


* 


* copie la moitié gauche dans la droite et vice-versa 


* 


ECHANGE LDX 


Snap 


SWAP2 





STX 
STX 
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500 

X1 

ri 

1192 

Ye 

4120 

x2 

Y1 
CALCADR 
DEPART 
DÉPART+i 
X1 
MEMAUXI 
SWwAP3 
MEMPRINC 
SWAP3 


x2 
SWAP2 
y 
ol 
Y2 
SWAP] 


30 


RTS 


* 


+ échange le contenu de 2 octets DHGR 


* 

SWAP3 LOA 
STA 
TYA 
PHA 


{DEPART },Y 
TAMPON 


#20 


(DEPART), Y 
TAMPON+] 
TAMPON 
{DEPART),Y 


TAMPON+I 
(DEPART), Y 


* COPIE MOITIE PAGE DHCR GAUCHE DANS DROITE 


COPIEGD LDX 


COPI LDX 


CoP2 STA 


CoP3 EDA 


#500 

X1 

ri 

192 

Y2 

#20 

x2 

Y1 
CALCADR 
DEPART 
DEPART+1 
X1 
MEMAUXI 
coP3 
MEMPRINC 
COP3 


x2 
coP2 
Y1 
Y1 
Ye 
cop 


(DEPART) ,Y ; 


TAMPON 


#20 


TAMPON 
fDEPART) , Y 


copie l'octet X en 20 + X 


* COPIE MOITIE PAGE DHGR DROITE DANS GAUCHE 


COPIEDG LDX 
STX 
LDX 
STX 
LDX 
STX 
LDX 
STX 
COPY1 LDX 
JSR 
STA 
STY 


#20 

X1 

1500 

Y1 

#192 

r2 

#40 

X2 

Y1 
CALCADR 
DEPART 
DEPART+I 





LDY xi USR GETBYTC 


COPYr2 STA MEMAUXI STX CEOIX 
JSR CePr3 USR GETSYTC 
STA MEMPRINC CPX #0 
JSR COPY3 BNE TRFi 
INY JSR TRANSO 
CE X2 RTS 
BNE COPY2 TRF1 CPX #i 
INC 1 BNE TRE? 
LDA #1 USR TRANSI 
CMP Y2 RTS 
BNE COPYI TREF2 CPX #2 
RTS BNE TRFEIN 
2 JSR TRANSO 
COPY3 LOA  (DEPART),Y JSR TRANSI 
STA TAMPON TREFIN RTS 
TYA TRANSO LDX CHOIX 
PHA STA MEMPRINC 
SEC JSR INITMOVE 
SBC #20 LOA DEBUTI,X 
TAY STA A14 
LDA TAMPON LDA FINI,X 
STA {0EPART),Y STA A2K 
PLA LDA NOUVI,Xx 
TAY STA AgH 
RTS TXA 
F ROR 
F JSR  AUXMOVE 
* INVERSE MOITIE GAUCHE RTS 
* TRANSI LDX CHOIx 
Li JSR  INITMOVE 
INVGAUC LDX #00 LDOA DEBUT2, X 
STX XI STA A1H 
LDX #$00 LDA FIN2,Xx 
STX Yi STA 224 
LDX #192 LDA NOUV2,X 
STX Y2 STA À4H 
LDX #20 STA MEMAUXI 
STX X2 TXA 
UMP  INV ReR 
* USR  AUXMOVE 
* INVERSE MOITIE DROITE ERA. MERE 
* RTS 
INVDROI LOX #20 : 
STX XI INITMOVÉE LOA #$00 slnitialise les octets bas 
LDX #00 STA AL ; des adresses utilisées 
STX 1 STA A$£ i par AUXMOVE. 
LDX #192 LDA #$FF 
SEX - Y2 STA A2L 
LDX #40 RTS 
STX X2 ; 
JUMP  INV ; tobles des adresses hautes 
* ; utilisees par AUXMOVE 
INV LOX Y1 DEBUT1 DFB 520, 540, 540, S20, S8C, 520 
USR CALCAOR FIN] DFB 53F,$SF, $S5F, S3F, $9F,S3F 
STA DEPART NOUV1 DFB S40,$20,520, S4C,$206,S80 
STY DEPART+1 DEBUTZ  DFB S$20,$20,$60, 520, SAO, 520 
LDY Xx1 FIN2 DEB "SIF, S9F, S7E, SE ,.SBE, S3E 
INV2 STA  MEMAUXI NOUV2 DFB $40,S40, S20, s60, $20, SA 
JSR  INVJ ERREUR  PLA 
STA  MEMHPRINC TAY 
JSR INV3 PLA 
INY LDX SDF 
CPY X2 TXS 
BNE INV2Z PHA 
INC 1 TYA 
LDA ÿ1 EHA 
CMP Y2 RTS 
BNE INY 0 
RTS * DRIVER IMPRIMANTE 
* + 
INV3 LDA  (DEPARTJ),Y ; inverse un ocret OLOVEC EQU S2FE 
EOR #$FF È 
STA  {DEPART),Y * Sauve les valeurs dans VECTIN (SBE30-31} 
RTS * et les remplace par le port imprimante. 
* * 
* TRANSFERT DE PAGE DHGR R 
* ACTIVE LDA $BE30 
TRANSFERT NOP STA CLDOVEC 
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$BE31 
OLDVEC+1 
#$500 
$BE30 
CET 
$BE31 


* 


* Redirige les sorties vers la 
* carte 80 colonnes (slot 3). 


DESACTIV LDA OLDVEC 
$BE30 
OLDVEC+] 


$B8E31 


* 


* SAISIE D'UNE TOUCHE 


* 


VARPNT EQU $83 ; adresse de la derniére variable 
KBD EQU  $CO000 
STROBE EQU $COi0 


Source HARD.S 


I! s'agit du source publié dans le 
numéro 18 de Pom's. 





Programme DHGRTOOL 


IP PEER (103) +" PEEK (09) 25 CR 257 
7 THEN POKE 103,1: POKE 104,96: FCKE 2457 
6,0: PRINT CHR$ (4) "RUN DHGRTOOL"“" 

20 GOTO 20000 


10 


100 REM CHARGEMENT D'UNE IMAGE 

110 ER = O:CX = CX(NM):CY = CY(NM)}: GOSUB 500: P 
OKE F2, CX\ + l': VMTAB CY +, 3/5 POREN3FACXES 
DO: EONE 34,;CY 7 2: POKEUT 5 ,CYO TT 

115 PRINT DS'PREFIX,D1" 

120 PRINT D$S"PREFIX": INPUT DIRS 

130 PRINT DS$S"OPEN"DIRS",TDIR" 

140 PRINT D$“READ"DIRS 

145 INPUT T$: INPUT T$: INPUT TS 

150 ÔONERR GOTO 180 

155 I = 0 

160 INPUT NAMES:NAMES = NAMES + "" 

162 IF NAMES = "““ THEN 180 

164 IF MID$S (NAMES,18,3) < > "BIN" THEN 160 

166 IF MIDS (NAMES, 26,3) < > TA$ THEN 160 

168 IF MIO$ (NAMES, 76,4) < > "2000" AND MIDS 
(NAMES, 76, 4} < > “4000" THEN 160 

172 I = I + 1:S$(4,I1)j = LEFTS (NAMES,15}: GOTO 
160 

180 POKE 216,0: PRINT DS$S%CLOSE": IF I > 12 THEN 
I = 12 

181 S1 = I: IF S1 = O THEN PRINT CHR$ (7j" Auc 
une image Sur ce disgue ";: GET R$: POP : 
RETURN 

182 IM = 4:HL = 6:HT = 10 

184 GOSUB 1020: TF K = 27 THEN POP : RETURN 

186 NAMES = S$(4,C1) 

190 IF CO = 2 THEN RETURN 

230 REM 

260 PRINT : PRINT D$"BLOAD"NAMES:AS$S 

290 RETURN 

300 REM SAISIE D'UN NOM DE FICHIER 

310$ 


320 VTAB 23: TEXT : CALL 


ATAB 1: 


- 868: PRINT 


CHKC@M  EQU $SDEBE 
PTRGET EQU SDFE3 
SGNELT EQU $E30] : rend flottant l'entier sans signe 
MOWME EQU SEB2B 3 transfère FAC dans octet pointé 
par Xe 
INKEY JSR CHKCOM 
UJUSR PTRGET 
KEY LDA KED 
BPL KEY 
BIT STROBE 
CMP  4$SFF 
8EC KEY1 
CMP 8$E0 ;: est-ce une minuscule ? 
BCC KEYI 
AND #$DF ; convertit en majuscule 
KEY! AND #$7F ;: bit 7 à zéro 
TAY 
USR SGNFLT ; convertit Y en flotrant vdens FAC 
LDX VARPNT ; adresse de ia varierle 
LDY  VARPNT+1 
JSR  MOVMF + transfère FAC dans la variable 
RTS 
"Tapez le nom de l'image, puis <Enter> f/ 
<ESC> pour ennuler"; 
330 ER = O0:CX = CX(NM):CY = CY(NM): GOSUB 500: P 
OKE 32,CX + 1: VTAB CY à: 3 
340 POKE 33,CX + 50 
350 POKE 34,CY + 2: POKE 35,CY + 14 
360 M$ = ‘“‘: HTAB l: VTAB 10 
361 PH = PEEK (1403) + 1:PV = PEEK (37) + 1: I 
NVERSE : PRINT " "“;: NORMAL : HTAB PH: VTA 
B PV: CALL TCHE,R 
362 IF R = 27 THEN RETURN 
363 IF R= 8 OR R = 127 THEN GOSUB 390: GOTO 3 
61 
364 IF R = 13 AND M$ < > "" THEN PRINT * Mes 
GOTO 450 
365 IF R < 46 OR (R > 57 AND R < 65} OR (R > 90 
AND R < 97] OR R > 122 THEN POKE 1403, P 
EEX (14903) = 7: 6070361 
370 PRINT CHRS (R}; 
375 M$ = M$ + CHR$ (R) 
380 GOTO 361 
390 HTAB PH: VTAB PV: PRINT " ";»: IF LEN (M$) 
= 0 THEN PRINT CHR$S (7};: POKE 1403, PEE 
K (1403) - 2: RETURN 
391 IF LEN (M$) < = 1 THEN POKE 1403, PEEK (| 
1403) - 2:M$ = "": RETURN 
392 POKE 1403, PEEK (1403) - 2:M$ = LEFTS (M$, 
LEN (M$} - 1J: RETURN 
450 PRINT DS"BSAVE"MS",A$2000, LS3FFFF" 
480 IF ER < > 0 THEN ER = 0: GOTO 330 
490 RETURN 
499 : 
500 REM DESSIN D'UN CADRE 
S10NE 
520 POKE 32,CX + 1: POKE 33,CX + 60: POKE 34,CY 
DORE MS CEE 1 SEMAOMELRCOTEXT 
530 HTAB CX + 5: VTAB CY + 1: PRINT ITS 
540 VTAB CY: HTAB CX + 2: FOR I = CX + 2 TO CX 
# 27: PRINT M; : NEXT 
550 VTAB CY + 15: HTAB CX + 1: FOR I=CX+1T 
CRCX FE CO PRINT MNEXT: PRIINTENTN 
SÉOVTAE CY + 1:  HTAB CX + 20: PRINT EME FOR 
IMmiCX + 29 TO CK 4H 60: PRINT MMS :NNEXT: 
570 FOR I = CY + 1 TO CY + 15: POKE 36,CX: VTAB 
TM PRINT ICNINEXT 
580 FOR I = CY + 2 TO CY + 15: POKE 36,CX + 60: 
VTAB TS PRINT MIN NEXT 
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590 
599 
790 
800 


930 


955 
960 
990 
1000 
1005 
1010 


1015 


1020 


1030 


1040 


1050 


1070 


1080 


1090 


1100 


RETURN 

REM SORTIE DU PROGRAMME 

ATAB 1: VTAB 23: TEKT : 

NT "Avez-vous vraiment 
(OAN)N Te GETURS 


CALL - 868: PRI 
décidé d'arreter 


MEN RS <= 
URN 
HOME: 


REM SAUVEGARDE D'ÜNE IMAGE SUR DISK 


POKE 49236, 0 

POKE 49152,0: CALL TRANSFERT, 0,1: POKE 4 
9153,0: REM TRANSFERT MEM AUXI EN PAGE 
2 PRINCIPALE 

ITS = “Sauvegarde":NM = 2:FL = 1: 
00 


“O" AND R$ < > “o" THEN RET 


END 


GOSUB 3 


FL = 0 


RETURN 
REM AFFICHAGE MENU 


C1 = 1:CX = CXINM):CY = CY(NMI:ITS = ITS 
(IM}: GOSUB SOO:HT = HT(NM):S1 = S(IM}:H 
L = BL(NM) 

HTAB 1: VTAB 24: PRINT "Choisir avec le 
s flèches / Valider par <ENTER> / Quitte 
x par <ESC> WE 
C1 = 1 

ECR' X =L11 TO“S 1: 
E 

VTABMHI) 42 FX + XO RSI < OM: 
T: PRINT SS(IM,X): NORMAL 

NEXT X 

POKE - 16368,0 

CALL TCHE,K 

IF K > 48 AND K < 48 
GOTO 1170 

IF K < > 8 AND K < > 21 AND K < > 13 
AND K < > 10 ANDK < > 11 AND K < > 
27 THEN 1080 
OI = C1 

IF K = 8 OR K = 11 THEN C1 
ICI (CAEN ONE SH EC 1 
180: GOTO 1080 

IF K = 21 OR K = 10 THEN C1 = 
= CIN (CR CC mn GI EN(CI UN = SUD FT); 
SUB 1180: GOTO 1080 
RETURN 

VTAB HAL 2 + O1 + O1 &# 
AT: PRINT S$S(IM,0O1) 
VTAB HILL ERP CIN ENCIS © 
RSE : ATABLVAT: PRINT, SS(EMACL)": 
RETURN 


TP X8 = CINTHEN. "INVERS 


ATAB H 


ENSTUATHENNCINU=NKE 


= C1 
0) : 


= 101 
GOSUB 1 


CL AN ACI 
GO 


fS1"< 10): ATAB 
(SI < 10}: INVE 
NORMAL : 


REM HARD COPY 


HTAB 1: VTAB 24: PRINT " Entrer la nouv 
eile valeur / Valider par <ENTER> / Quit 
CE pans ESC> 

CX = CXINM):CY = CY(NM):ITS = “Hard copy 
“": GOSUB 500 

POKE 768,0: POKE 769,0: REM IMAGE NORM 
ALE ET 560*192 
POKE 32,CX + 4: 


VTAB CY + 4: PRINT 


"ECHELLE HORIZONTALE (1/ 
> 13 THEN P1 
PR 


WS=CPISENERTNT 
2) A SGOSUE SSO0OINTENN < 
$ = W$S: POKE 36,HT + 15: VTAB VT + 1: 
INT P1$: PRINT 

WS = P2$: PRINT "ECHELLE VERTICALE (1/ 
LINE NEOSUBESS00 TENNIS ETHENSPE. 


?.— WS: POKEL 36 HT + 15:VTAB VT + 1 PR 
INT P2$: PRINT 

DEVPTS ON" 2) ANDSP2SEOTIMTHEN M EORET 
= 0 TO 4: POKE 4423 + 1,234: NEXT :P3$ = 

“002*: GOTO 5140 

TEMPS NMMMAND POSE = MOICTHEN  POREN?: 
68,12 8:MEORVT = 5MNTOL 7: POKE 4423 + 7,23 
4: NEXT 

IF P1$ = "2" AND P2$ = "2" THEN POKE 7 
68,128:P3S = "002": GOTO 5140 
NS = P35$5 

PRINT "MARGE GAUCHE ?";:HT = PEEK (36} 
AT = AN PEERN IST): PRINT PS$;: POKE 36,47 

FAOVTABAUTE le TNPUT "DS PRINT, P 
35; 

TES PSSEUSTAEND PES = WS 
P3$ = RIGHTS ("000" + P3$,3)} 

CALL ACTIVE 

PRINT CHRS (27} + 
CHRS$S (27) + CHRS (76} 
CALL HARDCOPY 

POKE 4423,44: POKE 4424,0: POKE 4425, 3: 
POKE 4426,16: POKE 4427,3: POKE 4428,32 
: POKE 4429,237: POKE 4430,253 

TEXT : HOME 

RETURN 
HPSNPEEKR 136}: VT = 
$* 
POKE 
,W 
DESNS=NPJNTHEN POP % 
IF W = 13 THEN 5320 
IF (W< > 49 AND W < 
TUCHRS (7) 7: GOTO' 5305 
5320 W$ = CHR$S (W): PRINT WS: RETURN 
6895: 
9000 
9010 : 
9020 
9030 


CHR$ (62}:: PRINT 


+ P3$; 


5190 
5200 
5300 


PEEK (37}: PRINT W 


5305 J6, HA +. 15: VRAB VT +1: CALL' TCHE 


5310 RETURN 
5302 


5315 > 50} THEN PRIN 


REM MENU PRINCIPAL 


TEXT : HOME 
PRINT ‘ 
TION 
NM = 1:IM = 1 
GOSUB 1000 
IF K = 27 THEN GOSUB 800: GOTO 9020 
NM = 2: ON C1 GOSUB 10000,12000, 9300, 5000 
: 800 

GOTO 9020 


IMAGES DOUBLE HAUTE RESOLU 
R.Jost (1986}" 

9040 
9050 
9055 
9060 


9070 

9990 : 

10000 REM MENU CHARGEMENT 

1068.10 » 

10020 IM = 2: GOSUB 1010 

10030 IF K = 27 THEN RETURN 

10040 NM = 3:C0 = C1:TA$S = " 17": 
HEN TAS = " 33" 

10050 ON C1 GOSUB 10070,10080,10120,10130: T 
EXT : HOME 

10060 RETURN 

10070 POKE 49236,0:ITS = "Image DHGR 16K":AS 

= “,AS$2000": GOSUB 100: POKE 49152,0: C 

ALL TRANSFERT, 1,0: POKE 49153,0: GOSUB 1 
2070: POKE 49236,0: RETURN 

10080 ITS = "deux moitiés DHGR" 


HAL C0 





10090 POKE 49236,0: GOSUB 100:A$ = ",AS2000" 

: POKE 49237, 0: GOSUB 260 

10100 POKE 49236,0: GOSUB 181: GOSUB 260: GO 
SUB 12070 

10110 RETURN 

10120 POKE 49236,0:IT$S = "deux images HGR'":A 
$ = ",AS$S4000": GOSUB 100: CALL H1,0: GOS 
UB 181: CALL H1,20: GOSUB 12070: RETURN 

10130 ITS = "image HGR -> DHGR 16K":A$ = ",AS 
2000": GOSUB 100: CALL H2: GOSUB 12070: 


RETURN 
11990 x 
12000 REM TRAITEMENT IMAGE 
12010 à 
12020 IM = J:NM = 2 
12030 GOSUB 1010 
12040 IF K = 27 THEN RETURN 
12045 IF C1 = 1 THEN GOSUB 12070: GOSUB 107 


0: GOTO 12040 

12050 ON C1 GOSUB 12070,12080,12100,12110,12 
120,,12130/; 12090, 12150, 12170,12140/ 12160, 
12180: GOSUB 12070: GOSUB 1070 

12060 GOTO 12040 

12070 POKE 49160,0: POKE 49165,0:X = PEEK ( 
49232) + PEEK (49234) + PEEK (49239) + 

PEEK (49246): REM AFFICHE L'IMAGE 


12072 R = PEEK ( - 16384): ON R < 128 GOTO 1 
20,72:R = R = 128: POKE. — 16368; 0 

12074 IFR = 13 OR R = 27 THEN TEXT : RETUR 
N 

12075 GOTO 12072 

12080 HGR : POKE 49234,0: POKE 49237,0: CALL 
62450: POKE 49236,0: RETURN : REM EFFA 
CE L'IMAGE 

12090 CALL NEG: TEXT : RETURN : REM NEGATIF 
DE L'IMAGE 

12100 CALL TRANSFERT, 3,2: TEXT : RETURN : RE 
M TRANSFERT EN MEM AUXI 

12110 CALL TRANSFERT, 5,2: TEXT ; RETURN : RE 


M VERS MEM AUXI $8000-BFFF 
CALL TRANSFERT, 2,2: TEXT : RETURN : RE 
M RAPPEL DE LA MEM AUXI 
CALL TRANSFERT, 4,2: TEXT : 
M RAPPEL AUXI S8000-BFFF 
12140 CALL CG: RETURN : REM COPIE GAUCHE -> 


12120 


12790 RETURN : RE 


DROITE 

12150 CALL IG: RETURN : REM INVERSE PARTIE 
GAUCHE 

12160 CALL MI: RETURN : REM MIROIR 

12170 CALL ECHANGE: RETURN : REM PERMUTER L 
ES DEUX MOITIES DE L'ECRAN DHGR 

12180 POP : RETURN 

14990 : 

15000 REM TRAITEMENT ERREUR DOS 

15005 : 

15010 CALL FAUTE 

15020 PRINT CHRS {7);: HTAB 1: VTAB 15 

15030 ER = PEEK (222):EL = PEEK (218} + 256 
Mo UPEEK (219) 

15040 INVERSE 

15050 IF ER = 4 THEN PRINT "DISK PROTEGE EN 
ECRITURE“; : GOTO 15120 

15060 IF ER = 6 AND EL = 20090 THEN PRINT " 


METTRE UNE DISQUETTE CONTENANT DHGRTOOL. 
O0": CALL - 741: GOTO 20090 


15070 IF ER = 6 AND EL = 20095 THEN PRINT " 
LE PROGRAMME HARD (POM'S #18} DOIT FIGUR 
ER SUR LA DISQUETTE": 


CALL + 741: GOTO 
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20100 
15080 IF ER = 6 THEN PRINT "CE FICHIER N'EX 
TSREMPASE :NGOTON 5120 


15090 IF ER = 8 THEN PRINT "ERREUR D'ENTREE 
SORTIE NE; GOTO "15120 
IF ER = 9 THEN PRINT "DISK REMPLI ":: 

PRINT DS"DELETE"MS: GOTO 15120 

15110 PRINT "ERREUR $"ER" À LA LIGNE #"EL: T 
EXT : END 

15120 NORMAL : FOR T = 1 TO 2000: NEXT : PRI 
NT CHRS (7}; 


15100 


15130 IF EL = 450 OR EL = 460 THEN 480 
15140 END 

19990 : 

20000 REM 

20005 : 

20010 TEXT : HOME : ONERR GOTO 15020 


20040 D$ = CHR$ (4): PRINT D$"PR#3" 
20070 TRANSFERT = 2048:NEG = TR + 3J:MI = TR + 
GANHIN=STREEN OT HIMENTRI FI I2:ECI=LTR 4 
5:CG = TR + 18:IG = TR + 24:FAUTE = TR + 
30:HARDCOPY = 4144 
20080 TCHE = TR + 33:ACTIVE = TR + 36:DESACTI 
VE = TR + 39 
20090 IF PEEK (2048} ÿ PEEK (2050) < > 66 
THEN PRINT DS"BLOAD DHGRTOOL.0" 
20095 IENNPEEK (4144) + PEEKS (4154)0%., > 38 
S THEN PRINT DS$"BLOAD HARD, A£1000" 
20096 POKE 4304,16: POKE 4334,16: POKE 4339, 
16: POKE 4443,16: POKE 4453,16: POKE 448 
7,16 

20097 POKE 4151,234: POKE 4152,234: POKE 415 
3,234: POKE 4506,DESACTIV / 256: POKE 45 
05,DESACTIV - PEEK (4506) * 256: REM 
MODIFIE LES APPELS PR# DANS HARZ. 

20100 DIM S$(5,14)} 

20105 ONERR GOTO 15000 

2OMO PIS MIMEP ES NDS SL 0 02% 

20120 DATA "Charger une image", "Trait 
er l'image", "Sauver une image BHGR", 

“Imprimer une image DHGR", "@uitter" 


2012301S (1) = 5:21 FOR II TOUL SNA N RENDESS (A, 
I}: NEXT :HT(1) = 25:HL(1} = 2:CX(1} = 5 
:CY(1) = 2:IT$S(1) = "Menu Principal" 
DATA "Charger une image 16K", “CG 
harger deux images DHGR", "Charger deu 
x images HGR", “Charger une image HGR" 
, "Retour au MENU principal" 
20150 S(2} = 5: FOR I = 1 TO S(2}: READ S$(2, 
I}: NEXT :HT(2) = 28:HL(2} = 4:CX(2}) = 7 


20140 


:CY(2) = 4:ITS$(2} = "Chargement d'une im 
age" 
20160 DATA "Voir l'image", "Effacer 


l'image”, "Sauver en mem auxi-l", 
“Sauver en mem auxi-2", “Rappel de la 
mem auxi-l", "Rappel de 13 mem auxi- 
2e 

20170 DATA "Negatif de l'image", "Ne 
gatif moitie gauche", "Permute les de 
ux moities", “Copie moitie gauche à d 
roite”, "Miroir", "Retour au MENU 
principal" 

20180 S(3) = 12: FOR I = 1 TO S(3): READ S$S(3 
+1): NEXT :HT(3) # 3l:HL(3} = 3:CX(3} = 
9:CY(3} = 6:IT$(3} = "Traitement image" 

20210 X = PEEK (49239): NORMAL : GOTO 9000 


a 


Récapitulation 


DHGRTOOL.O 


Après avoir 

saisi ce code 

sous moniteur, 

vous le sauvegaroerez 


par : 
BSAVE DHGRTUOL.C, A$800, LS39B 
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0998- 
09A0- 
09A8- 
09B0- 
09B8- 
09C0- 
09C8- 
09D0- 
09D8- 
09E0- 
09E8- 


ÉE 
4A 
8D 
Co 
ER 
DC 
18 
A5 
91 

ED 
EC 


ga 


À6 ED 


20 
EB 
54 
DO 
DO 
48 
1D 
1D 
86 
86 
18 





Récapitulation 
HARD 


Après avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
per : 

BSAVE HARD, AS$4000, LS1A1 
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Un jeu de réflexion : 
Souris-Laser 





//e+ 
fc 
/1gs 


ProDOS 






Souris-Laser vous est pré- 
senté ici en deux versions : 
Basic  Applesoft et 
assembleur. Une occasion de 
comparer la conception et 
d'apprécier la vitesse de 
réaction... peut-être aussi 
d'adopter définitivement 
l'assembleur. 


Souris Laser 
Version 
Basic 


La souns livrée avec les //c et 
adaptable aux //e est un accessoire 
fort agréable pour l'utilisation de 
nombreux logiciels. La 
documentation de base ne permet 
pas d'en maîtriser la program- 
mation de haut niveau mais 
indique un moyen simple de la 
contrôler sous BASIC. La routine 
correspondante est ici mise en 
œuvre pour la manipulation d'un 
jeu de réflexion généralement 
connu sous le nom de “boîte 
noire”. 


Les règles 


Aux intersections d'une grille 8 x 
8, trois atomes se placent au 
hasard. En émettant, 


horizontalement ou verticalement, 
des rayons ‘laser’ à partir des 
canons disposés à la périphérie de 
la grille, et en observant les points 
de sortie de ces rayons, il faut 
trouver l'emplacement des atomes 
sachant que : 
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* unrayon frappant directement 
un atome est absorbé ; 

* tout rayon détectant un atome 
en avant sur sa droite 
(respectivement gauche) est 
dévié sur la gauche 
(respcctivement droite) ; 

* un rayon dont la trajectoire 
passe entre deux atomes 
situés immédiatement de part et 
d'autre est réfléchi ; 

+ si un atome est situé contre un 
bord, tout rayon émis d'un 
canon disposé de part et 
d'autre de l'atome est 
immédiatement réfléchi ; 

+ les canons ont le double rôle 
d'émetteur et de détecteur ; 

+ letirest déclenché en cliquant 
la souris dans l'un ou l'autre 
des canons (zones jaunes 
extérieures à la grille) ; trois 
tirs sont possibles sur chacun. 


Au lancement du programme (RU? 
SOURIS.LASER), un menu 
d'options constitué de grosses 
lettres en basse résolution 
s'affiche. Cliquer dans la case 
correspondante pour choisir : 


Jeu normal : le premier curseur 
est rose ; on dispose de 6 coups. 


Jeu facile : le premier curseur 
est vert ; on dispose de 12 coups 
et les trajectoires des rayons sont 
visualisées. 


Démonstration les atomes 
sont visibles et les trajectoires 
visualisées ; on peut vérifier les 
règles du jeu. 


Stop : fin du jeu. 


Benoit Mesnil 


Une fois l'option principale 
sélectionnée, le jeu peut 
commencer. Un second menu 
d'options est affiché, les deux 
premières dans la couleur du 
niveau choisi (vert ou rose) : 


°__ commencer une nouvelle partie 
au même niveau de difficulté ; 

* continuer la partie en cours, du 
moins s'il reste des couleurs ; 

+ donner les solutions en 
affichant les atomes. 

Stop : fin du jeu. 


La signification des initiales est 
rappelée dans un message en bas 
de l'écran. 


Pour effectuer le tir, on amène le 
curseur Sur un canon et on 
‘clique’ ; un pavé de la couleur 
du curseur s'inscrit dans le canon 
d'origine puis, sauf absorption, 
dans le détecteur de sortie. 


On peut à tout moment tester la 
présence d'un atome : amener le 
curseur dans la grille et cliquer à 
l'emplacement supposé. Si un 
atome s'y trouve effectivement, 
un pavé vert pâle s'inscrit et un 
signal retentit. Pour reprendre le 
jeu, ramener le curseur hors de la 
grille ou dans la case de l'option 
C et cliquer. Le pointeur reprend 
la couleur du tir suivant ou reste 
noir s'il n'y a plus de couleur 
disponible. Il n'y a pas de pénalité 
en cas de test infructueux d'une 
solution : ceci peut être envisagé à 
condition d'éliminer les cas 
d'échec dus à un positionnement 
imprécis du pointeur. 


On pourrait augmenter à quatre le 
nombre d'atomes ; paradoxale- 


EEE 6 Se 0e ON ST PPS TT RENE ENS 


FE ETEEE rx 
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ment, cela semble rendre le jeu 
plus facile. 


Le programme 


Voici quelques indications sur la 
programmation du jeu. 


Lignes 30-36 : la souris est mise 
en service. 

40-85 : la grille et le premier menu 
sont affichés. 

100-130 : lecture de la souris: 
position et déclic. 

135-138 : temporisation du 
curseur piloté par la souris. 
140-180 : la souris a été ‘cliquée’, 
aiguille vers le traitement 
approprié. 

200 : souris cliquée dans la zone 
des menus. 

205-248 : si le premier menu 
affiché, enregistre l'option et 
appelle le second menu. 
250-280 : traite l'option du 
deuxième menu. 

400-520 : le rayon a été émis ou 
se propage horizontalement: 
460-465 : en ligne supérieure de 
la grille. 

470-475 : en ligne inférieure de la 
grille. 

480-488 : jeu facile, affiche un 
traceur. 

494-498 : le rayon ressort à droite 
ou à gauche. 

500-520 : il toume ou ressort en 
haut ou en bas. 

600-705 : le rayon a été émis ou 
se propage verticalement. On 
retrouve, au chiffre des centaines 
près, les groupes de ligne 
effectuant les traitements 
équivalents à ceux des sections 
listées ci-dessus. 

720-726 : fin de tir. 

900-910 : fin du jeu, déconnecte 
la souris. 


Sous-programmes 


750-790 : place les atomes. 
800-845 : donne les solutions. 
850-890 : la souris a été cliquée 
dans la grille : teste les solutions. 


Ayant été un de mes tout premiers 
programmes sur Apple, celui-ci 
n'est pas optimisé et est de ce fait 
assez lent ; les indications 
ci-dessus permettront de mener à 
bien les améliorations nécessaires. 





Laser.Mouse 
version ‘'Asm' 


Le jeu obéit aux mêmes règles que 
la version Basic et se présente de 
façon tout-à-fait similaire : les 
options sont choisies en cliquant 
dans des cases de menu dessinées 
en basse-résolution : 


Menu 1 


J Jeu normal, 6 essais, pas de 
visualisation des trajectoires ; 


F Jeu facile, 12 essais, 
visualisation des trajectoires. 


D Démonstration, comme F, 
avec visualisation des cibles. 


Menu 2 


J Rejouer ; réinitialisation et 
retour au Menu 1. 

C Continuer ; il n'est toutefois 
plus nécessaire d'y cliquer pour 
reprendre le jeu après avoir 
recherché une cible dans la grille. 


D Donne les solutions. 


Dans les deux cas, S termine le 
jeu. 

La principale différence vient 
évidemment de la rapidité 
d'exécution qui ne laisse aucune 
chance de situer les obstacles par 
la durée de l'essai. 

Malgré les temporisations, il est 
même recommandé de ne pas 
s'endormir sur le bouton de la 
souris... 

Un problème demeure qui, 
apparemment, n'est pas d'origine 
logicielle : il faut veiller à ne pas 
déplacer la souris au moment où 
l'on clique, en particulier dans la 
case J du Menu 1. 


Le jeu sewcomposendesdeux 
éléments principaux : 

+ Le fichier LASER.MOUSE, 
chargé en $6000 : programme de 
jeu proprement dit. 

+ Le fichier LASER.SBR, chargé 
en $7000 : sous-routines et 
utilitaires. Il convient de les 
charger (BLOAD)} dans cet ordre 
avant de démarrer par un CALL 
24576. Le programme Basic 
LASER. START se charge de ces 
opérations. 








Descriptif 

Comme pour la version Basic, 
voici quelques informations sur la 
conception du programme. 


Mémoires Page Zéro 


$6-7 : adresse de base des 
firmwares souris ($C400 pour 
slot 4): on a en effet utilisé le 
mode standard d'appel des 
sous-programmes souris via les 
vecteurs de la table fournie par le 
constructeur. 

$8-9 : adresse des tables de 
messages. 

$19-1A adresse ($7600 
actuellement) de la grille réduite 8 
x 8 dans laquelle s'exécute le jeu. 

$1B-IC : coordonnées x et y des 
particules en mouvement dans 
cette grille. 

$1 : drapeau initialisé à O ; vaut 1 
pour jeu normal, 3 pour jeu facile 
et 5 pour le mode démonstration. 
Bit 7 à O pour déplacement vers la 
droite ou vers le bas, à 1 pour 
déplacement vers la gauche ou 
vers le haut. 

$1E : couleur du curseur en 
Cours. 

$1F : sauvegarde de la couleur du 
fond sous le curseur. 

$4E-4F : RNDL et RNDH utilisés 
pour positionnement ‘au hasard’ 
des cibles. 

$FE-FF : coordonnées x et y du 
curseur à l'écran. 


Routines système 


Le programmes utilise les routines 
souris via les vecteurs de la table 
en page $C4. 
Il utilise également les routines 
suivantes : 
PLOT $F800 
HLINE $F819 
VLINE $F828 
CLEARTOP $F836 
SETCOL $F864 
SCRN $F871 
SETTEXT $FB39 
SETGR $FB40 
HOME  $FCS58 
BELL $FBDD 
WAIT S$FCAB 
COUT S$FDED 


Programme LASER.MOUSE 
$6000-600E 
d'adresses 

$6010-6017 : INITMOUSE 
(appelé via CallMouse en $7800) 


: JInitialisation 











$6018-6030 : CLAMP X (id.) 
$6031-6036 : CLAMP Y (id) 
$6037-6040 : SETMOUSE (id.). 
Mode transparent adopté par 
facilité. 


$6041-6048 : CLEARMOUSE 
(id) 

$6049 : Appel de Menul en 
$700B 

$604C : Mise à zéro de la grille de 
jeu et tirage des cibles par les 
sous- routines en $700B et 57138 
$6050-607F : READMOUSE: 
lecture de la souris et affichage/ 
déplacement du curseur ; boucle 
tant que la souris n'est pas 
cliquée. 

Au-delà de $6080, traitement 
selon les choix obtenus par 


on a cliqué dans la zone de jeu. 
$6096-60CA : stop ou options 
premier menu. 

$60CB-60EA : options deuxième 
menu. 
$60EB-6104 
coups illégaux. 
$6105-612D : dispatche vers tir 
en ligne ($615A) ou en colonne 
($6220). 

$612E-6157 : on a cliqué dans Ja 
grille ; recherche de solution. 


Tir en ligne 
$615A-6183 : début de tir ; tests 


: élimination des 


sur les bords de Ia grille. 
$6184-61F9 : la particule se 
déplace horizontalement. 
$61FB-6205 : la particule a été 
réfléchie. 

$6206-6215 : la particule sort 
horizontalement. 


Tir en colonne 


$6220-625F : début de tir. 
$6260-62E3 déplacement 
vertical de la particule, 
$62E4-62EE : la particule a été 
réfléchie. 

$62EF-62FB : la particule sort 
verticalement. 

$6300-6323 : fin de tir ; test sur la 
couleur ; temporisation ($631C- 
$6320) et retour à READMOUSE 
en $6050. 

$6330-6340 : fin du jeu ; 
déconnexion de la souris. 


Sous-programmes 
LASER.SBR 


$7000-700A : dispatche vers les 
routines firmware souris. 

$700B-7137 : affichage du 
premier menu : traçage des cases 
($7011-704F), des lettres 
($7050-70DB), de la grille 
($70DC-7119) ; affichage des 
premiers messages ($711A- 
7137), la routine d'affichage en 
7126-7137 est également utilisée 
pour les autres messages. 


$7138-717E : Mise à zéro de la 
grille de jeu ($7138-7142) et 
tirage des positions de cibles par 
transformations de RNDH et 
RNDL. 

$7180-7185 : transforme les 
coordonnées écran en Coor- 
données dans la grille de jeu. 


$7188-718C : transformation 
inverse. 
$7190-719A : positionnement 


dans la grille de jeu en fonction du 
rang de la colonne. 
$71A0-71DC : affichage du 
deuxième menu et des messages 
correspondants. 

$71E0-71E9 : affichage du 
message d'erreur. 

$71F0-7224 : visualisation des 
cibles (options D des cases 
menus). 

$7228-725E : début et fin de ur en 
ligne ; la section $7246-725E est 
aussi utilisée en cas de réflexion. 
$7260-7290 : début et fin de tir en 
colonne ; point d'entrée réflexion 
en $7278. 

$7292-72BC : affichage de la 
trajectoire des particules (options 
F et D du menu 1). 
$72C0-72C6 : changement de 
signe du drapeau $1D lors des 
inversions de sens de 


déplacement. 


70 REM * TRACE LA GRILLE * 
Programme VARCSÈ= ONCG = 13:C7 = 12;FAC =(0:DEM. = 0:'rPC 
SOURIS.LASER en ve 
e 74 COLOR= CG:ECR = 1 
76 FOR X = l4 TO 28 STEP 2 

5 REM ** LA SOURIS LASER ** ZYINV LINV 10,12 "AT X° VLIN 14,28 AT X° VLIN 3 
6 REM 032 ATX 
JMD CHRS  (4):SC = 25575 78 HLIN 10,12 AT X: HLIN 14,28 AT X: HLIN 3 
20 DIMMPT(7, 07) 0,32 AT X 
30 REM *ALLUME LA SOURIS * 80 NEXT X 
32 PRINT D$;"PR# 4": PRINT CHR$ (1} S?INICOTOR= 0: FOR X = 4 T0 6: VLIN 12, 16AT 
34 PRINT D$; "PR# O0" RANNEXT OX 
36 PRINT DS$;"IN# 4" BPMCGOLOR= 12° VLIN 12,161A7 4: HLIN.5,6t AT 
40 GR : HOME : COLOR= 13 12 > PILOTS, 14 
42 VIÉTNE2,33 ATI2" VILIN 2,939) AT 68 90 S = FRE (0) 
LA HLIN 28. AT PALIN 3,7 AT TO: PHEIN 3, 94 T3$ = " J -> JEU NORMAL F -> FACILE" 

AT 18 96 T4$ = " D -> DEMONSTRATION S -> STOP" 
SES HTIN, 3, 7 AT 261: HLTN 2, 8 VAT. 34 100 REM *# Lit la souris * 
48 COLOR= 11: VLIN 4,8 AT 6: HLIN 4,5 AT 8: 102 HOME 

BLOT 4,7 TOSWCOLOR= CS: PLOT X,Y 
50 COLOR= 15: FOR X = 28 TO 32 STEP 2: HLIN 110 VTAB 21: PRINT T3$: VTAB 22: PRINT TA4$ 

JAG AT KA NENXTUX HAOMRINPUT UN; KA VS 

51 PLOT 4,29: PLOT 6,31 J26M%e—= TNT (X / SC) :Y = INT: (Y / SC)':CS = 
S3:NCOLOR= 1: /HLIN 3, 6 AT210* VIEIN 21,234AT SCRN( X,Y) 

dUHBIN 3, 6 "AT. 24: VLIN 21,23 AT 6 130 IF S = 1 THEN 150 











135 


138 
140 


150 
155 


160 


165 
170 


175 


180 
200 
202 
205 
210 


215 


220 
225 
25? 
238 
240 


242 


248 
250 
255 
260 
265 
270 
275 
280 
400 
405 
410 


COLOR= CJ: FOR À = O0 TO 20: PLOT X,Y: N 


EXT À 

GOTO 105 

REM ** SOURIS CLIQUEE __ CHOIX OU TIR * 
# 


IF X < 8 THEN 200 


IF X = > 14 AND X< = 28 AND Y = >] 
4 AND Y < = 28 AND ECR = 2 THEN 850 

DENXEC M IONOR XE>EF 2 NOR YOU TOMOR TS >1372 
OR CS = O0 THEN 105 

COLOR= CJ 

IF X < 14 OR X > 28 THEN 400: REM LI 

GNE 

IF Y < 14 OR Y > 28 THEN 600: REM co 

LONNE 

GOTO 105 


IF Y > 26 THEN 900 

IF ECR = 2 THEN 250 

IF Y < 10 THEN CJ = 11: GOTO 220 

IF Y > 10 AND Y < 18 THEN FAC = 
1: GOTO 220 

IF Y > 18 AND Y < 26 THEN FAC = l:DEM = 
l:PC = l:TD = 30 

GOSUB 750 


l:PC = 


IF DEM = 1 THEN GOSUB 800 
T3$ = "C -> CONTINUER, J -> REJOUER" 
T4$ = "D -> DONNE LES SOLUTIONS" 


COLOR= 0: FOR X = 4 TO 6: VLIN 12,16 AT 
X: NEXT X 

COLOR= CJ: VLIN 12,16 AT 4: HLIN 5,6 AT 
12 HEINES GEATS 16 

HOME :ECR = 2: GOTO 105 

IF Y < 10 THEN 70 

IF Y > 10 AND Y < 18 THEN 270 

IF Y > 18 THEN GOSUB 800 

GOTO 105 

IF CJ > O THEN 105 

TISC=UrTL NET AT PEUS 

GOTO 105 


DE COULEUR" 


ST = l:XX = 12:C = O:I = O:J = 0 

IF X > 28 THEN ST = - l:XX = 30:C = 7 
DOMAUINR (V1 49) 2) Ve 140 EN 2 TNT, 
A = SCRN( XX, YY): IF À < > CG.AND À > 

O0 THEN XX = XX - ST: GOTO 412 

PLOT XX,YY: PRINT CHRS (7) 
TT rl Um Jr 1 

IF PT(C,L) = 1 THEN 725 

IF (C = O AND ST < 0) OR (C = 7 AND ST 


> 0) THEN 490 

IF PT(C + ST,L) = 1 THEN 725 

IF L = O THEN 460 

IF L = 7 THEN 470 

IF I = 1 AND (PT(C,L + 1) 
- 1) = 1) THEN C = C - ST:ST = 
GOTO 494 

IF PT(C + ST,L + 1) 


= 1NOR PT(C,L 
ST: 


1 AND PT(C + ST,L 


— 1) = 1 THEN ST = - ST: GOTO 480 
TH ETC STE LE TS NI TEEN VIS Tor 1" 
ST = - l: GOTO 620 
TFSPT(CUS ST, L = 1) =" 1OTHEN VI = I +1 
ST = l: GOTO 620 
GOTO 480 


REM Ligne 0 
IF I = 
NS TÉST = 


1 AND PT(C,L + 1) = 1 THEN C=C 
— ST: GOTO 494 


464 


465 
470 
471 


475 


480 
482 


485 
488 
490 


494 
496 


498 
500 
505 


520 
600 


605 
610 
612 


615 
620 
625 
630 


631 
632 
634 
640 
645 
650 
652 
655 
660 
661 
664 
665 
670 
671 
674 


680 
682 


685 
688 
690 





TAPT(CAIS ST, LE EDINE I NTHEN TI =, 12: ST 


æ= — l: GOTO 500 
GOTO 480 
REM Ligne 7 


TENTE = 1 AND ETC, LI) NU= INTRENLC =LC 


- ST:ST = - ST: GOTO 494 

IF PT(C + ST,L - 1) = 1 THEN Y = 30:ST 
= l: GOTO 500 
IF FAC = 0 THEN 490 

HO LIEN DER CET NA 2 CUT CO = NS 
RN( XX,YY) 
FOR À = 1 TO TD: PLOT XX,YY: NEXT A 
COLOR= CO: PLOT XX,YY: COLOR= CJ 

C'=NCHEST:" TFC > =" 0 "AND C <= 7 THE 
N 420 

NA LIEN NC YA = NTI Tr NE NT, 

A = SCRN(X,Y): IF A < > CG AND À > © 
THEN X = X + ST: GOTO 496 
GOTO 720 

X=14+2*%cC 

À = SCRN( X,Y): IF A < > CG AND À > 0 
THEN Y = Y + ST: GOTO 505 
GOTO 720 

STE VV =, 121) = US DT = 0: /REM NC 
OLONNES 
IF Y > 28 THEN ST = - l:YY = 30:L 7 


CENT (Xe = 149" A DJ: XX = 40027 
A =  SCRN( XX,YY): IF À < > CG AND A > 
CMETHENBYY =LYY = ST: COTO 612 


PLOT XX,YY: PRINT CARS (7) 
JORONRT  T = I + 1 

IF PT(C,L) = 1 THEN 725 

IF (L = O AND ST < 0) OR (L = 7 AND ST 


> 0) THEN 690 


LEMEMI(C, IL + ST). = 1 THEN 725 


IF C = O0 THEN 660 

IF C = 7 THEN 670 

TENJ =. 1 AND (PT(C + 1;:L) = 1 OR PT(C = 
TALDR= T) THENV IL = Lu STSST = = ST: 
GOTO 694 

THBETAC + 1,L.+ ST). =\1 AND PT(C = 1,17 
+ ST) = 1 THEN ST = - ST: GOTO 680 

IF PT(C + 1,L + ST) = 1 THEN J = J +1: 
ST = - l: GOTO 420 

IF PT(C - 1,L + ST) = 1 THEN J = J+l: 
ST = 1: GOTO 420 

GOTO 680 


REM Colonne 0 


RERO 1 AND PT(C + U,D)0= 1 THEN L = L 


— ST:ST = “+ ST: GOTO 694 
DEN DTI(C\iT. 1 L + ST) = 1 THEN X = 12:ST 
= - l: GOTO 700 
GOTO 680 


REM Colonne 7 


IF J = 1 AND PT(C - 1,L) = 1 THEN L = L 


OT ST =, — (ST GOTOM6 94 
DENPT(C = 1,1 + ST) = TOTHENVX, = 30:ST 
= 1: GOTO 700 


IF FAC = 0 THEN 690 
XX = 14 + 2 * C:YY = 14 + 2 * L:CO = 
RN( XX, YY) 

FOR À = 1 TO TD: PLOT XX,YY: NEXT À 
COLOR= CO: PLOT XX,YY: COLOR= CJ 
L=L+ST: IF L> = OANDL< = 7 THE 
N 620 


SC 
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694 X = 14 + 2 * C:Y = 14 + 2 * IL 880 I = INT ({(X - 14), / 2)::9 = INT ((Y- 1 
696 À = SCRN( X,Y): IF A < > CG AND À > O 4) / 2) 
THEN Y = Y + ST: GOTO 696 884 IF PT(I,J) < > 1 THEN 860 
698 GOTO 720 886 COLOR= 14: PLOT X,Y 
700 Y = 14 +2 * L 888 FOR À = l TO 3: PRINT CHRS$S (7): NEXT AÀ 
705 À = SCRN{ X,Y): IF A < > CG AND À > O0 890 GOTO 866 
THEN X æ X + ST: GOTO 705 900 TEXT : HOME : HTAB 8: PRINT “FIN DU JEU 
720 PLOT X,Y: PRINT CHRS (7): REM Fin de ya 
TIF 902 PRINT DS;:"PR# 4": PRINT CHR$ (0) 
725 CJ = CJ = PC: IF CJ < = 0 THEN CJ = O:T 904 PRINT DS;"PR# 0” 
3$ = "IL N'Y À PLUS DE COULEUR" 905 PRINT DS$S;:"IN# O0" 
726 GOTO 110 910 END 
750 REM * PLACE LES ATOMES * 
755 FOR I = OÙ TO "FOR" =" ONTONT 
760 PTIT, 3) = 0: NEXT J,I Programme LASER.BAS 
7AOMPEOR PT INTONS 
775 C = INT. (9 *— RND fA))) SL = — INT (EX. R 5  REM 
ND (1)) 10 REM LANCEMENT DU JEU LASER.MOUSE 
TINOCT ELET(C, LL) = T1 THENNT75 15 REM 
780 PT(C,L) = 1: NEXT I 20 TEXT : HOME :DS = CHRS (4) 
790 RETURN 30 VTAB 6: HTAB 15: INVERSE : PRINT “LASER. 
800 REM * Ss-Pr REPONSE * MOUSE": NORMAL : PRINT : PRINT 
805 COLOR= 1 40 PRINT "Pour pouvoir jouer, vous devez av 
810 FORT = OTO 7: FOR J = O TO 7 oir:": PRINT 
812 IF PT(I,9) = O0 THEN 840 45 PRINT " - Un Apple //c ou //e avec 65C02 
G2007 = 14 + 2 A TZ Z = LA NT 207 " 
830 PLOT 2,28 50 PRINT “ - Une souris connectée en Slot 4 
840 NEXT J,I ({/e) " 
845 RETURN 52 PRINT “ - Un moniteur ou TV couleur" 
850 REM Test des solutions 55 PRINT : PRINT "Si vous ne remplissez pas 
852 HOME :CS æ SCRN( X,Y) ces conditions" 
860 COLOR= CS: PLOT X,Y 60 PRINT “frappez ESCape ou CTL-C, si OK RE 
864 VTAB 22: PRINT "“CLIQUER HORS CADRE POUR TURN": PRINT : HTAB 15: PRINT "==> ";: 
REJOUE R" GET AS 
G66_ INPUT "MX, Y,S 70 IF A$ = CHR$ (27) OR AS = CHR$S (3) THE 
870 X = "INT (X / SC) EL mu TNT (TS / SC): CSS= N 100 
SCRN( X,Y*) 80 PRINT VTAB 8: CALL - 958: PRINT "Char 
872 COLOR= 14: FOR À = O0 TO 20: PLOT X,Y: N ge LASER.SBR" 
EXT À 82 PRINT DS"BLOAD LASER.SBR, AS7000" 
874 IF S < > l THEN 860 85 PRINT “Charge et lance LASER.MOUSE" 
876 IF X < 8 AND Y > 26 THEN 900 90 PRINT DS''BRUN LASER. MOUSE, A$6000" 
GOUTTE Xe < JINOR X > 28NORY < 141 ORLY SNA 95 CALL 24576 
OR CS = O THEN HOME : GOTO 105 100 HOME 
6012: B1 06 LDA (06),Y 6045: AA TAX 
: 6046: 20 00 70 JSR 7000 
Désassemblage se _ 00 70 ee 7000 6049: 20 0B 70 JSR 700B 
Récapitulation 6018: A9 24 LDA #24 604C: 20 38 71 JSR 7138 
LA SÉR.MOUSE 01A: 8D F8 04  SrA 048 604F: En NOP 
601D: 9C F8 05 STZ 05F8 6050: AO 14 LDY #14 
Après avoir saisi ces trois colonnes de Le A ae Sr an A MAGNET 
à 6023: 9C 78 05 STZ 0578 6054: AA TAX 
LR N E vous les sauvegarderez be. D 17 ir 6055: 20 00 70 JSR 7000 
É 5 6058: E6 4E INC 4E 
BSAVE LASER.MOUSE, A$6000,L5343 ne Fe ei ch Sr sa os ee 














#0E 
























607E: 10 DO BPL 6050 (-30) 6121: 30 06 BMI 6129 (+06} 61B4: CO 07 CPY #07 

6080: E6 4F INC 4F 6123: 1C001D CPY #1D 6186: FO 14 BEO 61CC (+14) 
6082: AE 7C 04 LDX 047C 6125: 30 07 BMI 612E (+07) 61B8: C8 INY 

6085: EO 09 CPX #09 6127: 09 80 ORA #80 61B9: B1 19 LDA (19),Y 
6087: 30 OD BMI 6096 {+02} 6129: 85 1D STA 1D 61BB: FO OF BEQ 61CC (+0F) 
6089: A5 1D LDA 1D 612B: 4C 20 62 UMP 6220 61BD: 28 PLP 

6088: 29 07 AND #07 612E: 98 TYA 61BE: 90 03 BCC 61C3 (+03) 
608D: D8 5C BNE 60EB (+5C) 612F: 20 80 71 JSR 7180 61C0: 4C FB 61 JUMP 61FB 
608F': EA NOP 6132: 85 1C STAMIC 61C3: A5 190 LDA 1D 

6090: 20 EO 71 JSR 71E0 6134: A6 TAY 61C5: 09 80 ORA #80 

6093: 80 BB BRA 6050 {-45} 6135: 6A TXA 61C7: 85 1D STA 1D 

6095: £EA NOP 6136: 20 80 71 JSR 7180 61C9: 4C 60 62 JMP 6260 
6096: AC FC 04 LDY 04FC 6139: 85 1B STA 1B 61CC: 28 PLP 

6099: CO 1A CPY #1A 613B: AA TAX 61CD: 90 09 BCC 61D8 {+09} 
609B: 30 03 BMI 60A0 (+03) 613C: FO 03 BEQ 6141 (+03j 61CF: A5 1D LDA 1D 

609D: 4C 30 63 JUMP 6330 613E: 20 90 71 JSR 7190 6101: 29 0F AND #0F' 

60A0: A5 1D LDA 1D 6141: 85 19 STA 19 61D3: 85 1D STA 1D 

60A2: DO 27 BNE 60CB (+27} 6143: B1 19 LDA (19),Y 61D5: 4C 60 62 JMP 6260 

60A4: CO OA CPY #0A 6145: FO 0E BEQ 6155 (+0E} 6108: E6 4E INC 4E 

60A6: 10 OC BPL 60B4 (+0C} 6147: A9 CE LDA #0E 61DA: A5 ID LDA 1D 

60A6: A9 0B LDA #0B 6149: 85 30 STA 30 61DC: 29 06 AND #06 

60A4: 85 1E STA 1E 6148: A4 j'E LDY FE 6iDE: FO 03 BEQ 61E3 (+03) 
60AC: 85 30 STA 30 6140: A5 FF LDA FF 61E0: 20 92 72 JSR 7292 

60AE: A9 O1 LDA #01 614F: 20 00 F8 JSR 800 61E3: 24 1D BIT 1D 

60B0: 85 1D STA 1D 6152: 20 DD FB JSR FBDD 61E5: 10 08 BPL 61EF (+08} 
60B2: 80 11 BRA 60C5 (+11} 6155: 4C 50 60 JMP 6050 61E7: AS 1B LDA 1B 

60B4: CO 13 CPY #13 6158: 00 00 BRK 00 61E9: FO 1B BEQ 6206 {+1B) 
60B6: 30 09 BMI 60C1 (+09) 615A: 20 28 72 JSR 7228 61€B: C6 1B DEC 1B 

60B6: A9 05 LDA 405 615D: A5 FF LDA FF 61ED: 80 08 BRA 61F7 (+08) 
60BA: 85 1D STA 1D 615F': 20 80 71 JSR 7180 61EF: A5 iB LDA 1B 

60BC: 20 FO 71 JSR 71F'0 6162: 85 1C STA 1C 61F1: C9 07 CMP #07 

60BF: 80 04 BRA 60C5 (+04} 6164: A8 TAY 61F3: FO 11 BEQ 6206 {+11} 
60C1: A9 03 LDA #03 6165: B1 19 LDÀ (19),Y 61F5: E6 1B INC 1B 

60C3: 85 1D STA 1D 6167: FO 03 BEQ 616C (+03)  61F7: 4C 84 61 JMP 6184 

60C5: 20 AO 71 JSR 71A0 6169: 4C 00 63 JMP 6300 61FA: EA NOP 







60CB: CO OA CPY #0A 616D: FO OD BEQ 617C (+02) 61FE: A4 FE LOY FE 






60CF: 4C 41 60 JMP 6041 6170: BI 19 LDA (19),Y 6203: 4C 00 63 JMP 6300 
60D2: CO 13 CPY #13 6172: FO 03 BEO 6177 (+03} 6206: AS 1C LDA IC 
60D4: 30 06 BMI 60DC (+06) 6174: 4C FB 61 JMP 61FB 6208: 20 88 71 USR 7188 







60D9: 20 D3 71 JSR 71D3 6178: CO 07 CPY #07 620D: 20 CO 72 JSR 72C0 
60DC: AS IE LDA IE 6i7A: FO 08 BEO 6184 (+08) 6210: 20 28 72 USR 7228 











60E0: 20 EO 71 USR 71E0 617D: B1 19 LDA (19},Y 6216: EA NOP 
60E3: 64 1E STZ 1E 617F': FO 03 BEQ 6184 (+03) 6217: EA NOP 
60E5: 64 10 STZ 1D 6181: 4C FB 61 JM? 61FB 6218: EA NOP 

EA 
60E4: EA NOP 6185: A6 1B LDX 1B 621A: EA NOP 
60EB: 85 1D STA 1D 6187: A4 IC LDY 1C 621B: EA NOP 
60ED: A5 1F LDA 1F 6189: 24 1D BIT 1D 621C: EA NOP 
60EF: F'O F'6 BEQ 60E7 {-UA)} 618B: 30 08 BMI 6195 {+06) 621D: EA NOP 

EA 
60F3: 30 F2 BMI 60E7 (-CE) 618E: EO0 08 CPX #08 621F: ÆEA NOP 
60F'5: EO 21 CPX #21 6190: 30 06 BMI 6198 (+06) 6220: 20 60 72 JSR 7260 
60F7: 10 EE BPL 60E7 (-12} 6192: 4C 06 62 UMP 6206 6223: A5 FE LDA FE 












60FC: CO OA CPY #0A 6196: 30 6E BMI 6206 (+6E)} 6228: AA TAX 

60PE: 30 E7 BMI 60E7 (-19} 6198: 8A TXA 6229: 85 1B STA 1B 

6100: CO 21 CPY #21 6199: FO 03 BEQ 619E {+03) 622B: FO 03 BEC 6230 (+03) 
6102: 10 E3 BPL 60E7 (-1D)} 619B: 20 90 71 JSR 7190 622D: 20 90 71 JSR 7190 
6104: Ea NOP GU9E: 85 19 STA 19 6230: 85 19 STA 19 

6105: A9, 7E LDA IE 61A0: BI 19 LDA (19),Y 6232: A4 1C LDYMIC 

6107: 20 64 F8 JSR F864 61A2: FO 03 BEQ 61A7 (+03) 6234: B1 19 LDA (19),Y 
610A: 86 FE STX FE 61A4: 4C 00 63 JM 6300 6236: FO 03 BEC 623B (+03) 
610C: 84 FF STY FF 61A7: 18 CLC. 6238: 4C 00 63 UMP 6300 











6110: EO 0E CPX #0E 61A9: 98 TYA 623C: FO 15 BEO 6253 (#15) 
6112: 30 06 BMI 611A {+06}  61AA: FO OC BEQ 61B8 (+0c} 623E: CA DEX 

6114: EO 1D CPX #1D 61AC: 88 DEY 623F: 68A TXA 

6116: 30 07 BMI 611F (+07)  61AD: B1 19 LDA (19),Y 6240: FO 03 BEQ 6245 {+03} 
6118: 09 80 oRA #80 61AF: FO 02 BEQ 6183 (+02) 6242: 20 90 71 JSR 7190 

611A: 85 1D STA 1D 61B1: 38 SEC 6245: 85 19 STA 19 

611C: 4C 5A 61 UMP 615A 61B2: 08 PHP 6247: B1 19 LDA (19},Y 
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6249 F0803 BEQ 624E {+03} 6298: EO 07 CPX #07 62F4: 20 88 71 JSR 7188 
624B: 4C E4 62 UMP 62E4 629A: FO 19 BEQ 62B5 {+19} 62F7: 85 FE STA FE 
624E: E8 INX 629C: E8 INX 62F9; 20 60 72 JSR 7260 
624F: EO 07 CPX #07 629D: 20: 90: 71 JSR 7190 62FC: EA NOP 
6251: FO OD BEQ 6260 (+0D} 62A0: 85 19 STA 19 62FD: EA NOP 
6253: E8 INX 62A2: B1l 19 LDA f19),Y 62FE: EA NOP 
6254: 20 90 71 JSR 7190 62A4: FO 0F BEQ 62B5 {+0F} 62FF: EA NOP 
6257: 85 19 STA 19 62A6: 28 PLe 6300: AS 1D LDA 1D 
6259; B4, 19 ZDA (19),Y 62A7: 90 03 BCC 62AC (+03) 6302: 29 OF AND #0F 
625B: FO 03 BEQ 6260 (+03) 62A9: 4C E4 62 JMP 62E4 6304: 85 1D STA 1D 
625D: 4C E4 62 JUMP 62E4 62AC: A5 1D LDA 1D 6306: C6 1E DEC ËE 
6260: 18 C1C 62AE: 09 80 ORA #80 6308: FO OA BEC 6314 (+0A} 
6261: A4 1C LDY 1C 6280: 85 1D STA 1D 6302: AS 1D LDA 1D 
6263: A6 1B LDX 1B 62B2: 4C 84 61 JUMP 6184 630C: 29 06 AND #06 
6265: 8A TXA 6285: 28 PLP 630E: DO 07 BNE 6317 {+07} 
6266: FO 03 BEC 626B (+03) 62B6: 90 09 BCC 62C1 {+09) 6310: C6 1E DEC IE 
6268: 20 90 71 JSR 7190 62B8: A5 1D LDA 1D 6312: 80.07 BRA 6317 {+03) 
626B: 85 19 STA 19 62BA: 29 OF AND #0F 6314: 20 EO 71 JSR 71E0 
626D: 24 1D &8IT 1D 62HC: S517D STA 1D 6317: AS 1E LDA 1E 
626F: 30 08 BMI 6279 (+08) 62BE: 4C 84 61 UMP 6184 6319: 20 64 F8 JSR F864 
6271005 INY 62C1: E6 4F INC 49F 631C: A9 80 LDA #80 
6272: CO 08 CPY #08 62C3: A5 1D LDA 10 631E: 20 A8 EC JSR FCA8 
6274: 30 06 BMI 627C (+06) 62C5: 29 06 AND #06 6321: 4C 50 60 JMP 6050 
6276: 4C EF 62 JUMP 62EF 62C7:.F0 03 BEQ 62CC f+03} 6324: EA NOP 
6279: 88 DEY 62C9: 20 92 72 JSR 7292 6325: EA NOP 
627A: 30 73 BMI 62EF {+73) 62CC: 24 1D BIT 1D 6326: EA NOP 
627C: BI 19 LOA (19),Y 62CE: 10 08 BPL 62D8 {+08} 6327: EA NOP 
627E: FO 01 BEQ 6283 (+03) 62D0: AS IC LDA 1C 6328: EA NOP 
6280: 4C 00 63 JMP 6300 62D2: F0 18 BEQ 62EC {+18} 6329: EA NOP 
6283: 168 CEC 62D4: C6 1C DEC IC 632A: EA NOP 
6284: 08 P#P 62D6: 80 08 BRA 62E0 {+08} 632B: EA NOP 
6285: 8 TXA 62D8: A5 1C LDA 1C $32C: EA NOP 
6286: FO 14 BEQ 629C {+14} 62DA: C3 07 CMP #07 632D: EA NOP 
6288: CA DEX 62DC: FO DE BEQ 62EC {+0E)} 632E: EA NOP 
6289: 8a TXA 62DE: E6 1C INC IC 632F: EA NOP 
628A: FO 03 BEQ 628F (+03) 62E0: 4C 60 62 JMP 6260 6330: AO 12 LDY #12 
628C: 20 90 71 JSR 7190 62E3: EA NOP 6332: B1 06 LDA (06),Y 
628F: 85 19 STA 19 62E4: 20 CO 72 JSR 72C0 6334: AA TAX 
6291: B1 19 LDA (19),Y 62E7: A6 FF LOX FF 6335: A9 00 LDA #00 
6293: FO 02 BEC 6297 (+02} 62E9: 20 78 72 USR 7278 6337: 20 00 70 JSR 7000 
6295: 38 SEC 62EC: 4C 00 63 JMP 6300 633A: 20 39 FB JSR FB39 
6296: 08 PHP 62EF: 20 CO 72 JSR 72C0 633D: 20 58 FC JSR FC58 
6297- E8 INX 62F2: A5 1B LDA 1B 6340: 4C DO 03 JMP 03D0 
702A: A0 02 LDY #02 706D: A9 07 LDA #07 
Désassemblage 702C: 98 TYA 706F: 20 00 F8 JSR F800 
Récapitulation 702D: 20 19 F8 JSR F819 7072: A9 0C LDA #0C 
LASER.SBR 7030: A0 02 LDY #02 7074: 20 64 F8 JSR F864 
Gi 7032: A9 22 LDA #22 7077; A9 10 LDA #10 
: Ne ' 7034: 20/19 F8 JSR F819 7079: 85 2D STA 2D 
Après avoir saisi ces trois colonnes de 7037: A9 07 LDA #07 7078: A0 04 LDY #04 
codes sous moniteur, vous les sauvegardere? 7039: 85 2C STA 2C 707D: A9 OC LDA #0C 


BSAVE LASER.SBR,A$7000, L$393 


à LL 
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F9 


ED 


F8 


F8 


FE 


FD 


70C2 {-0C) 


#1D 
7104 (-13)} 


70FC (-1E)} 
#0C ” 

1E 

1D 

# DO 

08 

#72 

09 

FC58 

#00 

{08),Y 
7137 {+06) 
FDED 


712D ({-0A) 


#00 
19 
#41 
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713E (-05} 
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19 
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4E 
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07 
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F9 
01 
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0E 


00 
DA 
00 


08 


FA 


00 
00 
A9 
20 
F8 
10 
2D 
05 
OC 
28 


07 
F6 
1E 
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#07 


19 


#07 


#01 
(HiC ee à 


7161 (+04) 
4F 
7147 (-1A) 
4E 


#36 
159 
C2 


#07 


(19),Y 
717A {+03} 


7173 {-07)} 
#01 
(A EVIES Q 


#0E 


00 
DA 
#00 


#08 


7193 {-06) 


00 

00 
A9 
20 
F8 
#10 
2D 
#05 
#0C 
F828 


#07 
71AB {-0A} 
1E 

F'864 

#04 
#0C 





20 


28 
06 
2C 
OC 
05 
19 
05 


10 
119 
18 
08 
73 
26 


60 
08 
73 
26 


F8 


F8 


F8 


TL 


71 


71 


71 


F'8 


72 


72 


F8 


JSR F828 
LDA #06 
STA 2C 

LDA #0C 
LDY #05 
JSR F819 
LDY #05 


LDA #10 
USR F819 
LDA #18 
STA 08 

LDA #73 
JSR 7126 


LDA #60 
STA 08 
LDA #73 
JSR 7126 







































BEQ 7214 {+12} 
SIYTAC 

LDA 1B 

USR 7188 


LDA 1C 
USR 7188 
USR F800 
LDY 1C 


BPL 71FE {-19} 
DEC 1B 
BMI 7224 {+09) 
LDA 19 


SBC #08 
STA 19 
BRA 71FC {-28} 


STZ 1B 

ST2 19 

LDY #0A 

LDA #C8 

STA 7253 

BIT 1D 

BPL 7246 (+0F} 
LDY #20 

LOA #07 

STA 1iB 

LDA #38 

STA 19 

LDA #88 

STA 7253 
STXGEE, 

LOA FF 

USR F871 

BEC 7256 {+07} 





7294F: 
7251: 
7253: 
7254: 
7256: 
7258: 
725B: 
725E;: 
725F: 
7260: 
7262: 
7264: 
7266: 
7269: 
726B: 
726D: 
726F: 
7271: 
7273: 
7275: 
7278: 
727A: 
727B: 
727E: 
7280: 
7282: 
7284: 
7285: 
7287: 
7289: 
728A: 
728D: 
7290: 
7294: 
7292: 
7294: 
7297: 
7298: 
7292: 
729D: 
TOME; 
72A1: 
72A3: 
72A5: 
72A7: 
72A8: 
72AB : 
722AE: 
72B0: 
72B3: 
72B4: 
72B7: 
72B9: 
72BC: 
72BD: 
72BE: 
72BF: 
72C0: 
7262; 
72C4: 
72C6: 
72C7: 
72C8: 
72C9: 
72CB: 
72CD: 
20H; 
72D3: 
72D4: 
72D6: 
72D9: 
72DB : 
72DD : 
72E1 : 
72E4: 
72E6: 
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D2 


F8 


72 


72 


F8 


F8 
FB 


71 


FA 


F8 


F8 
FC 


F8 


F8 


F8 


CD 8D 


CA 


CD 
A0 


C1 


CMP 
BEQ 
INY 
BRA 
LDA 
JSR 


#OD 
7256 (+03) 


7246 ([-10} 
EE 

F800 

FBDD 


7278 {+0B) 
#20 

#07 

1C 

#CA 

7284 

FE 


F871 
7287 (+07) 
#0D 
7287 (+03) 


727A {-0D} 
133 


F800 
FBDD 


1B 
7188 


i1C 
7188 


F871 
ir 
1E 
30 


F800 
FCA8 
LE 

F864 


F800 
lE 
F864 


1D 
#80 
1D 


F5 

CE 
8DCDD2 
#A0 


#BD 
Ca440, Y 
F5 

#CE 
C1CDD2 
A0A0 
#06 
#BD 


?22E8: BE AO CA LDX CAO, Y 733D: BD BE A0 EDA AOBE, X 
72E8: E5 F5 SBC F5 7340: C4 EF CEY EF 
72ED: AO C6 LDY #C6 7342: EE EE ES INC E5EE 
V2E HN C1 C3 CHP (C3,X) 7345: AO D3 LDY #D3 
72F1: C9 © CMP #CC 7347: CF CC DS D4 CMP D4D5CC 
72F3: CS 8D CMP 68D 234B: C9 CF CMP ÀCF 
72F5: AO A0 LDY #A0 734D: CE A0 A0 DEC A0A0 
72F7: 04 AO TSB A0 7350: A0 13 LDY #13 
72F9: BD BE A0 LDA AOBE, X 7352: AO BD LDY #BD 
72FC: C4 C5 CPY CS 72354: BE AO D3 LDX D3A0,Y 
72FE: CD CF EE CMP EECF 2357: D4 CF PEI CF 
7301: F3 F4 SBC (F4,S),Y 72359: DO 00 BNE 735B (+00} 
7303: F2 E1 SBC (El) 735B: 00 00 BRK 00 
7305: F4 E9 EF PEA EFE9 735D: 00 00 BRK 00 
7308: EE AO A0 INC AUAO 235F: 00 8D BRK 8D 
730B: AO 13 LDY #13 7361: A0 A0 LDY #A0 
730D: AO BD LDY #BD 7363: CD EF Ed CMP E4EF 
730F: BE A0 D3 LDX D3A0,Y 2366: E5 A0 SBC A0 
7312: D4 CF PEI CF 72368: EE EF EE INC EEEF 
7314: DO 00 BNE 7316 (+00) 736B: A0 F3 LDY #F3 
7316: 00 00 BRK 00 236D: ES EC SBC EC 
7318: 8D AO A0 STA A0A0 736F: ES E3 SBC E3 
731B: 8A ASL 2371: F4 E9 EF PEA EFE9 
731C: A0 BD LDY #BD 7379: EF EELES INC ESEE 
731E: BE A0 D2 LDX D2A0,Y 7377: 8D A0 A0 STA A0A0 
7321/: (ESNCA SBC CA 737A: EF F5 AO FO SBC FOAOF5 
7323: CF DS CS D2 CMP D2C5D5 73HE :MECRESRES CEXIE3PS 
7327: AO A0 LDY #A0 7381: AO E4q LDY #E4 
7329: AO 03 LDY #03 7383: E5 A0 SBC A0 
732B: AO BD LDY #BD 2385: E3 EF SBC EF,S 
732D: BE A0 C3 LDX C3A0,Y 7387: F5 EC SBC EC, X 
7330: CF CE D4 C9 CMP C9D4CE 2389: ES F5 SBC F5 
7334: CE D5 C5 DEC C5DS 7238B: F2 00 SBC (00) 
7337: D2 8D CMP (8D) 738D: 00 00 &8RK 00 
7339: AO A0 LDY #A0 738F: 00 00 BRK 00 
233B: 04 AO TSB A0 7391: 00 00 BRK 00 


| BugByter 


A. Avrane, dans le numéro 13 de Pom's, regrettait 
l'impossibilité d'imprimer depuis BugByter. Pour 
remédier à cet état de chose, voici un petit patch et la 
procédure de mise en place : 


Boeter sur la disquette Master DOS 3.3 

CALL. TS 

BECAD BUGBYTER, AS$1000 

1729:4C 00 EA 

1679:4C 20 EA EA 

2A00: C9 9B DO 03 4C F8 D6 C9 D7 DO 06 8D 1D 4c 
2D D7 C9 C5 DO 05 A9 00 8D 1D EA 4C 2D D7 00 
EA A9 80 2C 1D EA 10 3B AE AC E7 CA BD 10 8D 
4B EA BD 28 E9 8D 4C EA AC B7 E7 A9 50 8D 06 
A9 00 8D F9 05 85 36 A9 C1 85 37 B9 28 7F 
C9 20 B0 02 09 40 20 00 C1 C8 CO 27 DO ED 0D 
20 00 CI 68 8D 98 E7 4C 7D D6 00 

BSAVE BUGBYTER, AS$1000, L$1A69 (sur une copie !} 


En mode SINGLE STEP, l'appui sur Write) 
démarre l'impression et l'appui sur End) l'arrête. 
Une fois la commande W donnée, on peut passer en 
mode Trace si on le désire. 


Michel Duroc, 97220 Trinité 




















CLM. & BBDO 


On trouve plus facilement 
avec 10 ans 


Certaines évolutions sont aussi 
importantes que des révolutions. 


Le plus difficile quand on débute, 
c'est de débuter. Car toutes les 
propositions d'emploi demandent une 
certaine expérience. Chercher un 
emploi est donc un problème 
insoluble. Pas pour l'Apple Ils, il 
débute avec 10 ans d'expérience. 

Comment? C'est très simple, 

il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 

un Apple Il classique et miniaturisé. 
Il profite ainsi de 10 ans de 
développement de logiciels et 
d'expérience. Un grand progrès réalisé 
en partie grâce au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple IL. L'Apple cs fonc- 
tionne à deux vitesses : 2,8 MHz en 
mode natif; en mode émulation 
(c'est-à-dire lorsque vous utilisez un 


programme de votre ancien Apple Il) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 


Débuter connu, c'est 16.000 propositions 
d'emploi. 


Avec lIWM (Integrated Woz 
Machine*) l'Apple If6s peut recevoir 
indifféremment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue à vous 
faire profiter de la plus grande 
bibliothèque de logiciels du monde. Le 


nombre de 16.000 logiciels étant estimatif 


car la seule chose qu’un Apple Ilcs soit 
incapable de calculer, c'est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau système 
d'exploitation ProDOS, l'Apple Il6s 
permet la hiérarchisation des fichiers 
et des catalogues à la manière de 


* Er hommage à Steve Woantuh, «fondateur dela Sociète 
Apple et créateur de l'Apple LL. 
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un emploi quand on débute 


‘expérience. 
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Macintosh, et la connexion de 
nouveaux périphériques. 


G ets, cela veut dire Graphique et son. 


L'imagination débridée des 
développeurs suffira-t-elle pour utiliser 
les 10% nuances de couleurs 
disponibles? C'est probable. Ce qui est 
certain, c’est qu'une résolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup de relief 
à certaines démonstrations. Si vous 
n’en croyez pas VOS yeUX, VOUS n'en 
croirez pas vos oreilles non plus. Le 
coprocesseur “son” choisi par 
Apple a déjà une brillante carrière 
derrière lui puisqu'il est emplo par 
les plus grands synthétiseurs du 
marché. C'est l'ENSONIQ, capable de 
générer 16 voix, 


Apple présente l'Apple IIcs. 


et il ne lui manque même pas la parole. 


Les relations nécessa'res pour réussir. 


En 10 années, l'Apple !1 a eu tout 
le loisir de se faire d'excellentes relations 
detravail imprimante, modem, disque 
dur, que l'Apple IIGs continuera à 
entretenir et développer; celui-ci peut 
désormais être connecté au réseau 
AppleTalk et gérer la Laser Writer 
réservée jusqu'à présent à Macintosh. Il 
peut aussi recevoir le disque dur SCSI. 

L'Applelles possède 7connecteurs 
d'extension permettant, à l’aide d’une 
multitude de cartes d'interfaces, de le 


relier à tous les types d'unités périphériques. 


Acheter un Apple, c’est entrer dans 
le Club Apple pour échanger des informa- 
tions, accéder au support technique par 
téléphone 7 jours sur 7, ou aux services 
télématiques du Club. 








- : Apple, Apple 1165, ProDOS, Macintosh, Apple Talk, LaserWriter et GS Paint sont des marques déposées par Apple Computer Inc. 
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À la rédaction de Pom'’s, les 
pauses — rares et studieuses (1) 
— sont souvent consacrées à la 
cinématique des sphères, 
entendez le billard sur Macintosh. 
L'objet de notre passion est le 
Billard Parlour, freeware de 
Crandall, Giliespie et Lew mis à 
votre disposition sur la disquette 
‘Mac Il’. La qualité de ce 
programme nous incite à vous le 
présenter plus en détail, 


Présentation 


La copie d'écran ci-contre illustre 
la qualité de la présentation de ce 
jeu bien réaliste. Disposé au 
centre de l'écran, le tapis vert, 
au-dessus, le compteur de points 
et en haut, le boulier. 


À l'aide de la souris, on fait 
apparaître la queue de billard et 
on lui donne l'angle voulu ; la 
force de l'impact est déterminée 
par la position de la souris. Tout 
cela est très instinctif. Il ne faut 
pas taper trop violemment : outre 
que le réalisme en souffre, les 
billes pourraient passer les unes 
au travers des autres sans que le 
programme ne gère un choc. 


Comme bien des freewares, le 
mode d'emploi et le programme 
sont en anglais, mais ce jeu est si 
connu que cela ne devrait pas 
constituer un obstacle. 


Les possibilités 


Outre le jeu standard, il est 
possible de positionner les billes 
comme on le souhaite pour 
étudier un Coup. 


L'effet donné à la bille est maté- 
rialisé par un point sur un disque, 
point à positionner avant de 
jouer. À défaut, ce point est au 
zéro théorique, c'est-à-dire sans 
effet : le ‘rétro’ s'obwent en tapant 
plutôt au bas de la bille. De la 
même manière, on peut doser 
l'effet latéral. 


Un bruit de collision qui rappelle 
fidèlement celui de l'ivoire est 
généré à chaque impact ; on peut 
le supprimer. 

Le compteur évite toute ambiguïté 
sur l'obtention des points mais, 


Free w ui 





Un billard à l'essai 


$ File Edit Game Rack Options Magnify Help 


Billiard Parlour 


en billard français, il ne 
fonctionne qu'en ‘trois bandes”. 


Possibilités qui n'existent pas 
dans les traditionnelles salles de 
bifjard : annuler et reprendre un 
coup, mais également rejouer un 
coup pour en contrôler les 
trajectoires ; un menu en propose 
le tracé. 


Les billards 


Ce programme est complet : il 
propose le jeu : 


+ avec les 3 billes du billard 
français ; 

+ avec 9 ou 15 billes numérotées 
(à jouer dans l'ordre) ; 

* avec 15 billes numérotées et 6 
non numérotées : 

+ avec 3, 6, 9, 10 ou 15 billes 
non numérotées. 

° Lag, qui est un exercice de tir 
de précision. 

Une loupe est disponible pour 

contrôler les numéros des billes 





numérotées mais ils sont en fait 
lisibles. 


Le programme 


Écrit en Rascal (2), il ne laisse 
pas de place au hasard : les 
coordonnées, les vitesses, 
l'analyse des collisions compte 
tenu de l'effet donné et les 
trajectoires font l'objet de calculs 
mathématiques (toujours sur des 
entiers 16 bits pour une question 
de rapidité). Le help donne, en 
anglais, des informations sur la 
méthode de calcul des collisions. 

L'affichage des billes est réalisé à 
l'aide de deux images pour 
donner une impression de 
rotation, mais il est un peu lent 
lorsque 21 billes sont sur le tapis. 


(1) Précisions à l'attention du Rédacteur 
en Chef. 

(2 Rascal de Metaresearh Inc. 1100 SE 
Woodward, Portland, OR 97202 


États-Unis. . 
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Philippe Mathieu 


Nous supposerons dans cet article que le lecteur connaît déjà 
TtunkTank ou, pour le moins, les principes de fonctionnement des 
programmes de gestion d'idées dont ThinkTank a été le premier et 
brillant exemple. 


Point fort : More et le Macintosh 


More, digne successeur de ThinkTank, possède par rapport à son 
prédécesseur un fonctionnement plus "Macintosh", notamment 
grâce à son utilisation des ascenseurs, Il possède aussi une plus 
grande souplesse dans la réorganisation, à l'aide de la souris, de la 
hiérarchie des idées. Remarquons enfin la possibilité d'ouvrir 
simultanément plusieurs fenèwes et de Copier/Coller entre elles. 


Point fort : présentation variée des documents 


Outre les classiques liste et table des matières, More propose un 
dessin des titres et sous-titres sous la forme d'un organigramme, 
ainsi que la “projection” de planches et tableaux pour les 
conférences ou toute utilisation similaire. 

Ces tableaux peuvent défiler, soit à intervalles réguliers, soit à la 
commande. Un défilement rapide permet de créer une sorte 
d'animation. Il est très aisée de coller dans More des dessins et 
graphiques créés par d'autres programmes, par exemple MacPaint 
ou MacDraw, et aussi par lui-même (organigramme collé comyne 
dessin). Par ailleurs, More dispose de nombreuses options de 
polices caractères, styles, cadres et même de l'impression en 
couleurs sur l'ImageWriter {. 


Point fort : grande pulssance d'organisation 


+ possibilité de créer des "clones", des doubles d'une sélection qui 
seront modifiés si l'on modifie l'original (et inversement) ; 

+ “marquage”, en liaison avec la recherche automatique, permettant 
de regrouper des titres ayant un certain contenu: 

+ création et utilisation de modèles (gabarits) réutilisables dans 
divers fichiers. 


Point fort : autres fonctionnalités utiles 


More possède de larges facilités d'échange avec d'autres logiciels : 

+ accueil de documents provenant d'autres logiciels, y compris 
lui-même, avec possibilité d'insertion de ces documents dans le 
document courant ; 

+ envoi de documents vers d'autres logiciels ; 

+ gestion intéressante du temps : calendrier, dates, heures. 


Le numérotage téléphonique automatique est possible, pour peu 
qu'on utilise un modem autorisant ce type d'opération. 


Inconvénient : impression 


Il est impossible de placer volontairement des sauts de page à 
l'impression, de sorte que les coupures se produisent de façon 
systématique quand la page est pleine (c'est-à-dire généralement au 
mauvais endroit). 


Inconvénient : fenêtres de texte 


Le traitement de texte reste assez rudimentaire. On ne peut par 
exemple pas changer les caractères, la taille ou le style d'un mot ou 
d'un groupe de mots à l'intérieur d'une même fenêtre. 
Heuresement. c'est possible d'une fenêtre à l'autre. On ne peut pas 
non plus voir à l'écran ce que sera l'apparence d'un texte après 
justification, celle-ci n'intervenant que lors de l'impression. Par 
ailleurs, les fenêtres de texte ne peuvent être ouvertes qu'une à une, 
après avoir sélectionné les sous-titres correspondants, ce qui est 
part culièrement fastidieux. 


Quelques “gadgets” superflus 


On peut se demander par ailleurs si certains gadgets, qui 
compliquent imutilementle maniement du logicie}, n'auraient pas pu 


— 
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STRUCTUREXPERT ” 


La solution pour programmer de manière 
structurée en MSBASIC M et ZBASIC %. 
STRUCTUREXPERT M vous permet de 
disposer d'un ensemble d'analyses 
qui peuvent être visualisées (fenêtres 
"scrollables”), sauvées séparément sur 
fichiers, ou imprimées 
. Arborescence complète (descendante 
et ascendante) des appels GOSUB et 
CALL. 
Listes triées sur plusieurs types de 
critères des GOSUB et des CALH. 
. Statistiques : fréquence d'appel de 
chaque routine. 
. Détection d'erreurs logiques (boucles 
non contrôlées, récursivité illégale, 
labels et routines non utilisés). 


STRUCTUREXPERT 495 F TTC + 20F de port 

Paiements par CB ou chèques adressés à 

Q.S.I 149, rue OBERKAMPF 75011 PARIS 
tel : (161142493795 





être supprimés : 

* trois modes de divisions en fenêtres ; on ne voit pas à quoi sert la 
division en diagonale ; 

+ trop souvent, trois méthodes pour obtenir le même résultat ; par 
exemple, pour la commande Etendre, qui peut être mise en 
œuvre par un menu déroulant, un clic ou une commande clavier. 


Bien que mise en relief par l'auteur du programme, la possibilité 
d'associer des valeurs à des sous-titres et de les additioner 
automatiquement en remontant la hiérarchue des tiwes ne semble pas 
passionnante. 


Attention, danger : les annulations 


1 n'exite pas de commande d'annulation de l'opération précédente, 
comme c'est le cas maintenant dans pratiquement tous les 
programmes Macintosh. C'est une lacune. 


Conclusion 


More estun produit original et puissant, mais à serait bien agréable 
d'avoir rapidement une version More 2.1 dans laquelle la plupart 
des problèmes que nous avons indiqués ci-dessous seraient 


résolus. 
G 


Pom’s recherche pour les 
mois de juillet et lou août un ou deux 
stagiaires. Bonne maîtrise du 
Macintosh, du français et de 


l'orthographe requise. 

Envoyez votre CV à Hervé Thiriez, 
Editions MEV, 12, rue d'Anjou 78000 
Versailles avant le 15 juin. 
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“TPom's”, qui répond à une 
importante demande, autorise la 
récupération de l'annuaire électro- 
nique sous la forme d'un fichier 
‘texte’ directement exploitable. 
Ce programme permet aussi, 
accessoirement, le traitement de 
fichiers créés à partir du 
programme “Minitel” (Pom’s 
numéro 27), Il s'agit d'une 
application autonome écrite en 
assembleur MDS 68000, 
fonctionnant sur tous les 
Macintosh et ce quel que soit 
l'environnement. Comme pour 
les programmes “Minitel” et 
“Inter Pom’s” (Pom's numéro 28) 
un câble-interface Minitel/ 
Macintosh est requis ; si vous ne 
l'avez pas déjà, vous pouvez le 
fabriquer en vous aidant des 
schémas publiés dans les 
numéros 27 ou 28 de Pom’s ou, 
si vos dons ou votre temps ne 
vous le permettent pas, on peut 
aussi commander cette liaison 
indispensable directement à la 
revue. Pour cela, vous trouverez 
un bon de commande page 75. 


Utilisation 
de TPom’s 


Le programme utilise quatre 





menus déroulants ; voici le 
premier : 

Fichier 

[TE Nouveau. #0 
Nouveau... 
L'article ‘Nouveau...’ de ce 


menu sera employé pour choisir 


Jean-Luc Bazaneque 


le nom du fichier destiné à 
recevoir les informations émises 
par TPom’s. Les fichiers ainsi 
créés portent le type ‘texte seul’ 
MacWrite/DiskWrite (TEXT 
MACA), donc ‘double 
cliquables’ et exploitables avec 
n'importe quel logiciel capable de 
traiter ce format. Une fois le 
choix du nom effectué, il 
s'affiche dans la barre de titre de 
la fenêtre. Si le programme ne 
trouve pas de fichier ouvert, la 
barre de titre contient la mention 
‘Pas de fichier ouvert’. 
L'‘équivalent clavier’ de cet 
arkicle est ‘Commande-O”. 


Fermer 


Nous trouvons l'article ‘Fermer’ 
valide dans deux cas : 


*< un accessoire de bureau est 
affiché et actif. Dans ce cas, 
une action sur cet article — ou 
son équivalent clavier 
‘Commande-F” ferme l'acces- 
soire en question ; 

° un fichier est ouvert. Le 
traitement consiste alors en la 
fermeture du fichier courant, le 
remplacement du nom de 
fichier dans la barre de titre par 
la mention ‘Pas de fichier 
ouvert’, et le changement de la 
forme du curseur. 


En effet, comme le programme 
peut fonctionner ‘à vide’ et afin 
de bien marquer l'ouverture — ou 
la non-ouverture d'un fichier, les 
curseurs ont des formes 
différentes selon les cas : 


* curseur en forme de roue si un 
fichier est ouvert (identique à 
celui employé pour l'accessoire 
de cryptage “Kruptos” du 
précédent numéro de Pom'’s); 

* curseur en forme de ‘sens 
interdit’ si il n'y a pas de 
fichier ouvert. 


Un éventuel fichier ouvert sera 





TPom s : 


Minitel, Macintosh er Le 11 


aussi fermé si : 


* Je choix d'un autre fichier est 
effectué ; 

+ l'utilisateur quitte le pro 
gramme. 


Numéros 


Si l'on veut se constituer un 
fichier d'adresses, on souhaitera 
conserver les numéros de 
téléphone. Cependant, les 
numéros de téléphones sont 
parfaitement inutiles lorsqu'il 
s'agit de faire un ‘mailing’. 
TPom’s permet donc, grâce à 
l'article ‘Numéros’, de choisir le 
format de stockage : avec ou sans 
numéros. 


Dans le cas d'un stockage sans 
numéro, le format du fichier 
comprend quatre zones séparées 
par un ‘retour-Chariot’ : 


1 Nom 

2 Prénom 
3 Adresse 
4 Ville 


Pour un stockage avec numéros, 
le format comprend cinq zones : 


1 Nom 

2 Prénom 
3 Adresse 
4 Ville 

5 Numéro de téléphone 


Afin de faciliter le traitement du 
fichier d'adresses par un éventuel 
autre programme, chaque ‘fiche’ 
est précédée par une ‘puce’ (-),et 
ce quel que soit le format utilisé 
(avec ou sans numéros), ce qui 
nous donne par exemple, sans 
numéros : 


Electricité de France-Gaz de 
France (E.D.F-G.D.F) 


46 bd St Antoine 
LE CHESNAY 


Electricité de France Gaz de 
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France 


7 bd Jean Jaurès 

BOUILLES 

Société Agricole g'Electricité 
de la Région d'Orgerus 


J30T Gare 
TACOIGNIERES 


et, avec numÉTOS : 


Electricité de France-Gaz de 
France({E.D.F-G.D.F) 


46 hd St Antoine 
LE CHESNAY 
(1) 39 54 9% 10 


Êlectricuté  d'e, France Gaz de 
France 


7 bd Jean Jaurès 
HOUILLES 
(1) -39 13 24 45 


Société Agricole g'Electricité 
de la Régien d'Orgerus 


33 r Gare 
TACOIGNIERES 
(1) 34087 @2 17 


Lorsque l'option ‘avec numéros” 
est valide, l'article correspondant 
apparaît coché et, pendant le 
traitement, les numéros de 
téléphone s'affichent à l'écran. 
Par défaut, les numéros ne sont 
pas conservés. Notons enfin que, 
comme il est possible de changer 
de format à tout instant, un même 
fichier peut contenir des ‘fiches’ 
avec et sans numéros de 
téléphone. 






Edition 
Annuler 
Couper %## 
Copier  à#C 
Coller &U 


Effacer 








TPom’s n'a pas recours au 
‘Couper/Copier/Coller’ ; le menu 
édition n'est donc là que pour 
répondre aux exigences — 
légitimes — du ‘User Interface 
Guideline’, et ne deviendra valide 
qu'en présence d'un accessoire 
de bureau actif. 
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Fichier ‘Porm's 27”... 


Minitel 


Fichier ‘Pom’s 27°... 


.. Sera utilisé si l'on désire traiter 
un fichier créé par le programme 
du numéro 27 de Pom's. La 
fenêtre standard de sélection 
s'affiche, ne laissant apparaître 
que les noms des fichiers cités 
plus haut. Une fois la sélection 
faite, TPom's fait rapidement son 
travail, ne ‘rendant la main’ qu'à 
l'achèvement de la tâche. 


Minitel 


Dans ce cas, les informations 
traitées proviennent du Minitel, 
via l'interface série ‘communica- 
tion’ du Macintosh. Ce sera 
certainement la manière la plus 
courante d'employer TPom's ; 
c'est pourquoi elle est celle valide 
par défaut. 


Quitter 


Ent nt 
vers le ‘Finder’ æQ 


vers une oepplication… %f 


TPom’s offre deux façon de 
sortir du programme : 


* en provoquant un retour au 
‘Finder’ (méthode courante) ; 

* en proposant l'appel direct de 
l'application de votre choix. Il 
n'est pas nécessaire que 
l'application à appeler soit sur 
un volume ‘en ligne’. 


Il est possible d'utiliser les 
équivalents claviers Comman- 
de-Q et Commande-A. 


Problèmes 
possibles 


Prise en compte 
des informations 


TPom’s ne prend en compte les 
informations issues du Minitel — 
ou puisées dans un fichier 








‘Pom’s 27° — que lorsqu'il reçoit 
le premier nom de ville. 
Autrement dit, si vous lancez 
TPom’s pendant que vous 
consultez, par exemple, la liste 
des plombiers de Paris, il n'y a 
aucune chance pour que le nom 
de la ville change, et notre 
programme ne va rien retenir. 
Pour éviter ce genre de situation, 
il est préférable de faire démarrer 
TPom’s avant de commencer la 
consultation de l'annuaire 
électronique. Une autre méthode 
permet de se sortir d'embarras : 
appuyer sur la touche répétition, 
ce qui oblige le serveur des PTT à 
réémettre, entre autre, le nom de 
la ville, déclenchant ainsi la prise 
en compte des informations. 


Informations erronées 


L'annuaire électronique ne 
propose pas de zones fixes — sauf 
pour le numéro de téléphone — 
dans lesquelles TPom’s aurait pu 
puiser. Notre programme fait 
donc de son mieux en analysant 
la multitude de codes qui lui 
parviennent. Dans ces conditions, 
il peut arriver (en fait, il arrive !) 
que certaines informations 
stockées dans le fichier texte soit 
erronées. De ce fait, un petit coup 
d'œil dans le fichier avec un 
logiciel de traitement de texte peut 
s'avérer utile. 


Zones 


Bien qu'étant affichés dans la 
fenêtre pendant le traitement, les 
départements ne sont pas 
enregistrés, ceux-cine présentant 
pas d'intérêt. 


L'annuaire électronique n'indi- 
quant pas le code postal, il sera 
nécessaire, pour un ‘mailing’ par 
exemple, de faire un remplace- 
ment systématique VILLE — 
CODE POSTAL / VILLE. 


Mauvaise connexion 


Le programme aura des 
difficultés à fonctionner si le 
câble de liaison est mal — ou pas — 
connecté. Afin d'éviter cela, le 
programme utilise des curseurs 











qui doivent s'animer à la 
réception du moindre caractère. 
Si tel n'est pas le cas, une 
vérification de la ‘connectique’ 


Fichier PTT 


Nom : PTT Paris 
Prénom : comédiens des PTT 


fidresse : 181 au Choisy î53e 





s'impose. 


G 





Vitle : PARIS 
Département : PARIS 
Numéro : (1) 470757 42 





Sources et fichiers du programme “T_Pom's” 
* le symbole ‘f indique la continuité d'une ligne. 











Zero EQU 0 Menus 
Fichier ‘T_Pom's.Job’ Un EQU 1 SUBQL  #Quatre SP 
Deux EQU 2 MOVE #MenuPomme,-(SP) 
ASM T_Pom’s.Asm Exec Edit Trois EQU 3 _GetRMenu 
LINK T_Pom's.Link Exec Edit Quatre EQU 4 MOVEL  (SP),HandleMPomme(A5) 
RMAKER T Pon's.R Finder Edit MOVEL  HandieMPomme(A5),-(SP) 
Debut EUR -(SP) 
BSR:S Initialisations _InsertMenu 
BSR Menus MOVEL  #'DRVR',-(SP) 
ichier’ ! inL’ BSR OuvreSerie _AddResMenu 
de does 1 pe BSR OuvertureF SUBQL  #Quatre.SP 
] BRA Evenements MOVE #Menufichier,-(SF) 
_GetRMenu 
T Pom's Initialisations MOVEL  (SP),HandleMFichier(A5) 
{Output T_Pom's.Code PEA -4(A5) CLR -(SP) 
/Type TEMP' _InitGraf _InsertMenu 
_InitFonts SUBQ.L #Quatre,SP 
$ MOVE.L  #S0000FFFF,D0 MOVE #MenuEdition,-(SP) 
_FlushEvents _GetRMenu 
_InitWindows MOVEL (SP), HandleMEdition(A5) 
_InitMenus CLR -(SP) 
Source ‘T_Pom's.Asm’ CLRL (SP) _InsertMenu 
_InitDialogs SUBQL #Quatre,SP 
INCLUDE T_Pom's/l.Asm _TEÏlnit MOVE #MenuSource,-(SP) 
INCLUDE T_Pom's/2Asm PEA Curseur1bis _GetRMenu 
INCLUDE T_Pem's/3.Asm _SetCursor MOVEL (SP), HandleMSource(A5) 
INCLUDE T_Pom's/4.Asm CLR -(SP) 
END SUBQ.L #4,5P _InsertMenu 
_TickCount SUBQ.L  #Quatre.SP 
MOVEL  (SP}+.l MOVE  #MenuSortie,-(SP) 
F î = CompteurTiming(AS) _GetRMenu 
Source ‘T_Pom's/1.Asm MOVE #1,Numero_Curseur(A5) MOVEL (SP), HandleMSortie(A5) 
SF DrMenuFichier(A5) CLR {SP) 
INCLUDE FSEqu.Txt ST DrMinitel(A5) _InsertMenu 
INCLUDE Traps.Txt ST DrComi(A5) @1 MOVEL  HandleMEdition(A5)J 
INCLUDE SysEqu.D ST DrLPTIValide(A5) (SP) 
INCLUDE ToelEqu.D SF DrNumero(A5) CLR -(SP) 
INCLUDE QuickEqu.D SF DrDepart(A5) _Disableltem 
INCLUDE PackMacs.Txt SF D:Couleur(A5) _DrawMenuBar 
SF DrNumero_en_cours(A5) RTS 
MenuPomme EQU 1 SF DrLigne(AS) 
mAPropos EQU 1 SF D:Colonne(A5) Evenements 
MenuFichler  EQU 2 SE DrRepere(A5) _SystemT ask 
mNouveau EQU 1 SF DrAttente_Affichage_[ BSR TesteEntree 
mFermer EQU £) Ville(A5) BEQ.S @1 
mNumero EQU 5 SF Dr_Attente_Ville(A5) BSR Niveau0 
MenuEdition  EQU 3 SF Dr_Attente_] BRA.S Evenements 
mAnnuler EQU 1 Departement(A5) @1 SUBQL  #25P 
mCouper EQU 3 SF Dr_Attente_Prenom(AsS) MOVE #SOFFF,-(SP) 
mCopier EQU 4 SF Dr_Attente_] PEA EnregEvents(A5) 
mColler EQU 5 Nom_Suite(A5) _GetNextEvent 
mEffacer EQU 7. SF Dr_Attente_Adresse(A5) TST {SP)+ 
MenuSouræ EQU 4 SF DrAffichage(AS) BEQS Evenements 
mPoms?7 EQU 1 SF Copie_Affichage( A5) BSR.S Traitementevents 
mMiru'tel EQU 2 SF Copie_Affichage+128(A5) BEQOS Evenements 
SF Copie_Affichage+256(A5) RTS 
MenuSortie EQU 5 SF Copie_Affichage+384(A5) : 
mQuitter EQU 1 SF Copie_Affichage+448(A5) Traitementevents 
maApplication EQU 2 SF Copie_Affichage+512(A5) MOVE EnregEvents+| 
BSR Zero_Chaines_Nom evtNum(AS),D0 
DialogAPropos EQU 1 MOVE #DILoad,-(SP) ADD D0,D0 
DialogBis EQU 501 _Pack2 MOVE TableEvenements(D0),D0 
bOK EQU 1 RTS MP TatleEvenements(DO) 
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TableEvenements 

Eventsuivant-f 
TableEveriements 
5Souris-TableEvenements 
Eventsuivant-[ 
TableEvenements 
Touche-TableEvenements 
Evenisuivant-/ 
TableEvenements 
Touche-TableEvenements 
MiseJour-TableEvenements 
Disquette-f 
TableEvenements 
Active-TableEvenements 
Evenitsuivant-f 
TableEvenements 
Eventsuivant-/ 
TableEvenements 
Eventsuw'vant-f 
TableEvenements 
Eventsuivant 


8 A0 Ann 0 4 À 


8 


MOVEQ #Zero,D0 
RTS 
Souris 

SUBQ.L #Deux,SP 

MOVEL EnregEvents+/ 
evtMouse(A5),-(SP) 

PEA EnregEvents+evtMeta+] 
Deux(A5) 

_FindWindow 

MOVE (SP}+,D0 

ADD D0,D0 

MOVE TableFenetre(D0),DO 

JMP TableFenetre(D0) 


DC Eventsuivant-TableFenetre 
DC BarMenu-TableFenetre 

DC fenetreSys-TableFenetre 
DC Contenu-TableFenetre 

DC DeplaceFen-TableFenetre 
DC Contenu-TableFenetre 

DC Eventsuivant-TableFenetre 


BarMenu 

SUBQ.L #Quatre SP 

MOVEL  EnregEvents+] 

evtMouse(A5),-(SP) 

_MenuSelect 

MOVE (SP)+,D1 

MOVE (SP)+,D0 
BarMenuC 

ADD D1,D1 

MOVE TableMenus(D1),D1 

JMP TableMenus{(D1) 
TableMenus 

DC E ventsuivant-TableMenus 

DC TraitPomme-TableMenus 

DC TraitFichier-TableMenus 

DC TraitEdition-TableMenus 

DC TraitSource-TableMenus 

DC TraitSortie-TableMenus 
FinMenu 

CLR -(SP) 

_HiliteMenu 

BRAS Eventsuivant 
TraitFichier 

ADD D0,D0 

MOVE TableFichier(DO),DO 

JMP TableFichier(DO) 
TableFichier 

DC FinMenu-TableFichier 


DC TmNouveau-TableFichier 
DC FinMenu-TableFichier 
DC TmFermer-TableFichier 
DC FinMenu-TableFichier 
DC TmNumero-TabieFichier 





Touche 
BTST #CmdKey,EnregEvents+] 
evtMeta(A5) 
BNES Commande 
BRA Eventsuivant 
Commande 
CLR.L -(SD) 
MOVE EnregEvents+evtMessage+| 
Deux(A5),-(SP) 
_MenuKey 
MOVE (SF)+,D1 
MOVE (SP)+,D0 
BRA BarMenuC 
Misefour 
BSR SPMiseJour 
BRA Eventsuivant 
SPMiseJour 
MOVEA.L EnregEvents+] 
evtMessage(AS),A4 
MOVEL  Ad4,-(Sf) 
MOVEL (SP),-(SP) 
_BeginUpdate 
_SetPort 
BSR AfficheTitre 
BSR MiseJourZones 
MOVE.L  A4,-{SP) 
_EndUpdate 
RTS 
Disquette 
BRA Eventsuivant 
Active 
MOVEAL EnregEvents+] 
evtMessage(A5),A4 
CMPI #userKind,f 
windowK'nd(A4) 
BNE Eventsuivant 
MOVE EnregEvents+] 
evtMeta(A5),D7 
BTST #ActiveFlag,D7 
BEQS DeActiver 
MOVEL  A4,-(SP) 
_SetPort 
BSR ChangeCurseur 
DeaActiver 
BSR ValideMenus 
BRA Eventsuivant 
fenetreSys 
PEA EnregEvents(A5) 
MOVEL  EnregEvents+evtMeta+] 
Deux(A5),-(SP) 
_SystemClick 
BRA Eventsuivant 
DeplaceFen 
MOVE EnregEvents+f 
evtMeta(A5),DO 
ANDI #2048+256,D0 
CMPI #2048+256,D0 
BNE.S @1 
SUBQ.L #Quatre, SP 
_FrontWindow 
MOVEL  (SP})+,D3 
MOVEL  PointeurFenetre(A5),-(SP) 
LEA RectFenetre,A3 
MOVEL  (A3),-(SP) 
CMP.L PointeurFenetre(A5),D3 
SEQ -(SP) 
_MoveWindow 
BRA Eventsuivant 
@1 MOVEL  EnregEvents+evtMeta+] 
Deux(A5),A4 
MOVEL  A4,-(SP) 


@1 





MOVEL  EnregEvents+] 
evtMouse(A5),-(SP) 
PEA Rectanglelimite 
_DragWindow 
@2 BRA Eventsuivant 
Contenu 
SUBQ.L #Quatre, SP 
_FrontWindow 
MOVEL  (SF)+,D0 
MOVEA.L EnregEvents+evtMeta+| 
Deux(A5),A4 
CMP.L A4,D0 
BEQ.S @1 


MOVE.L  A4,-(SP) 
_SelectWindow 


BRAS @2 

MOVEL  A4,-(SP) 

_SetPort 

PEA EnregEvents+] 
EvtMouse(A5) 

_GlobalToLocal 

SUBQ.L #Deux SP 

MOVEL  EnregEvents+] 


EvtMouse(A5),-(SP) 
MOVEL  A4,-(SP) 


PEA HandleControle(A5) 

_FindControl 

TST (SP)+ 

BEQ.S @2 

SUBQL #Deux,SP 

MOVE.L  HandieControle(A5),-(SP) 

MOVEL  EnregEvents+] 
EvtMouse(A5),-(SP) 

GER -(SP) 

_TrackControl 

TST (SP')+ 

BEQ.S @2 

SUBQL  #Quatre SP 


MOVEL  HandleControle(A5),-(SP) 
_GetCRefCon 


BSR Boutons 
@2 BRA Eventsuivant 
TraitPomme 
CMPI #mAPropos, DO 
BEQS TraiteAPropos 
MOVEL  HandieMPomme(A5),-(SP) 
MOVE DO0,-(SP) 
PEA NomaAccessoire(A5) 
Getltem 
SUBQ.L #Deux, SP 
PEA NomaAccessoire(A5) 
_OpenDeskAcc 
ADDQ #Deux,SP 
BRA FinMenu 
TraiteAPropos 
CLRL -(SP) 
MOVE #DialogAPropos,-(SP) 
PEA Dialogue(A5} 
MOVEL  #-1,-(SP) 
_GetNewDialog 
MOVE.L  (SP),-(SP) 
__SetPort 
Attente 
CLR.L -(SP) 
PEA Article(A5) 
_ModalDialog 
_CloseDialog 
SUBQ.L  #Quatre,SP 
_FrontWindow 
MOVE.L  (SP)+,A4 
CMPI #userKrnd,f 
windowKind(A4) 
BNE.S @1 
MOVEL  A4,-(SP) 
MOVEL  (SP),-(SP) 
_SelectWindow 
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_SetPort 
@1 BRA FinMenu 
TraitEdition 
BSRS VersSysteme 
BRA FinMenu 
VersSysteme 
MOVE D0,D7 
CLR -(SP) 
MOVE D0,-(SP) 
SUBQ #Un,(SP) 
_SysEdit 
MOVE.B  (SP)+,D1 
RTS 
TmNouveau 
MOVEL  #$640064,-(SP) 
PEA Prompt 
PEA NomDefaut 
CLR.L -(SP) 
PEA ReponseGetFile] 
Destination(A5) 
MOVE #SFPutFile,-(SP) 
_Pack3 
TST ReponseGetFile) 
Destination+rGood(A5) 
BEQ FinMenu 
TST.B DrMenuFichier(AS) 
BEQ.S @1 
LEA TamponlO/ 
Destination(A5),A0 
_Close 
BSR InfoFichier 
@1 LEA TamponlO/ 
Destination(A5),A0 
LEA ReponseGetFileDest] 
ination+rName(A5),A1 
MOVEL  Ai,ioFileName(A0O) 
MOVE ReponseGetFileDestf 
ination+r Volume(A5),f 
ioVRefNum(A0) 
_Create 
BEQS @2 
CMPI #-48,D0 
BEQ.S @2 
@3 CMPI #-33,D0 
BNE.S @4 
MOVE #2,-(SP) 
BSR Erreur 
BRA.S @5 
@4 CMPI #-34,D0 
BNE.S @6 
MOVE #3,-(S2) 
BSR Erreur 
BRAS @5 
@6 MOVE #1,-(SP) 
BSR Erreur 
@5 MOVEL  PointeurFenetre(A5),-(SP) 
PEA Titre 
_SetWTitle 
MOVE.L  HandleMFichier(A5),f 
-(SP} 
MOVE #mFermer,-(SP) 
_Disableltem 
SF DrMenuFichier(A5) 
BSR ChangeCurseur 
BRA FinMenu 
@2 LEA TamponlO/ 
Destination(A5),A0 
LEA ReponseGetFileDest] 
ination+rName(A5),A1 
MOVEL  Al,ioFileName(A0) 
CLR.L ioOwnBuf(A0) 
MOVE.B  #fsWrPerm,ioi’ermssn(A0) 
MOVE ReponseGetFile 
Destination+r Volume} 
(A5),ioVRefNum(AO) 
_Open 


BNE.S @3 
MOVEL  PointeurFenetre(A5),-(SP) 
PEA ReponseGetFileDest] 
ination+rName(A5) 
_SetWTitle 
MOVEQ  #0,D0 
MOVEB  ReponseGetFileDest/ 
ination+rName(A5),D0 
ADDQ #1,D0 
LEA ReponseGetFileDest/ 
ination+rName(A5),A0 
LEA NomFichier(A5),A1 
_BlockMove 
MOVE ReponseGetFilef 
Destination+r Volume] 
(A5), Volume(A5) 
ST DrMenuFichier(A5) 
BSR ChangeCurseur 
MOVEL  HandleMFichier(A5),J 
-(SP) 
MOVE #mFermer,-(SP) 
_Enableltem 
BRA FinMenu 
TmEcrmer 
SUBQ.L  #Quatre SP 
_-FrontWindow 
MOVEA.L (SP)+,A4 
CMPAL  PointeurFenetre(A5),A4 
BEQ.S @1 
MOVE windowKind(A4),-(SP) 
_CloseDeskAcc 
BRA FinMenu 
@1l BSR FermeDestination 
BRA Fin: Menu 
OuvertureF 
SUBQ.L #Quatre,SP 
CLRL -(SP) 
PEA RectFenetre 
PEA Titre 
MOVEB  #Un,-(SP) 
MOVE #documentProc,-(SP) 
CLRL -(SP) 
CLR -(SP) 
MOVEQ  #Un,D0 
MOVEL  DO,-(SP) 
_NewWindow 
MOVEA.L (SP),A4 
_SetPort 
MOVE #sysFont,-(SP) 
_TextFont 
MOVE #12,-(SP) 
_TextSize 
MOVEL  A4,PointeurFenetre(A5) 
RTS 
OuvreSerie 
PEA TamponlOSort(AS) 
PEA Sort 
BSR OuvreS 
PEA TamponIOEntre(A5) 
PEA Eutre 
BSR OuvreS 
RTS 
OuvreS 
LINK A6,#0 
MOVEA.L 12(A6),A4 
MOVEA.L A4,A0 
MOVEL  &(A6),ioFileName(AO) 
CLR.B ioPermssn(A0) 
_Open 
BNE.S @1 
MOVEA.L A4,A0 
MOVE #8,csCode(A0) 
MOVE #94+1024+16384+12288.f 


csParam(A0) 
_Control,Immed 


BNE.S @1 


MOVEL #800,D0 
_NewPtr,clear 
BNE.S @1 


MOVEL  AO,A1 
MOVEA.L A4,A0 


MOVE #9,csCode(A0) 
MOVEL  Aï,csParam(AO) 
MOVE #800,csParam+4(A0) 
_Control,Immed 
BEQS @2 

@1 MOVE #2,-(SP) 
BSR Erreur 
_ExitToShell 

@2 UNLK A6 
MOVEL  (SP),8(SF) 
ADDQL  #8,SP 
RTS 


AfficheChaineNumero 
MOVE.L  #$0060002E,-(SP) 
_MoveTo 
PEA ChaineNumero 
_DrawString 
RTS 


AfficheTlitre 


MOVEL  #$00100044,-(SP) 
_MoveTo 
PEA ChaineNom 
_DrawString 
MOVEL  #50020002F,-(SP) 
_MoveTo 
PEA ChainePrenom 
_DrawString 
MOVEL  #$0030002D,-(SP) 
_MoveTo 
PEA ChaineAdresse 
_DrawStrin 
MOVEL  #$00400045,-(SP) 
_MoveTo 
PEA ChaineVille 
_DrawString 
MOVEL  #50050000B,-(SP) 
_MoveTo 
PEA ChaineDepartement 
_-DrawString 
TST.B DrNumero(A5) 
BEQ.S @1 
BSR AfficheChaineNumero 
@1 RTS 
RectFenetre DC 50,8,154,478 
Titre DC.B 2L'Pasde/ 
fichier ouvert’,0 
Align 2 
TypeTEXT DC.B ‘TEXT' 
TypeAPPL DC.B ‘APPL' 
CreateurWrite DC.B ‘MACA' 
Type27 DC.B ‘mtlF' 
Dialogue DS.B DWindLen 
NomaAccessoire DS.B 32 
EnregEvents DS.B 20 
HandleMPomme DSL 1 
HandleMFichier DSL 1 
HandleMEdition DSL 1 
HandleMsource DSL 1 
HandleMSortie DSL 1 
Article DS 1 
SauvePort DST 
PointeurFenetre DSL 1 
NomFichier DS.B 64 
Volume DS 1 
TamponlO DS.B ioFQElSize 
TamponlOFichier27 
DS.B ioFQEïSize 
TamponfODestination 
DS.B ioFQElSize 
ReponseGetFile DS.B 72 


Pom's n° 30 





ReponseGetFileDestination 


DS.B 
ReponseGetFileQuitter 

DS.B 
Entre DC.B 
Sort DC.B 
TamponlOEntre DS.B 
TamponlOSort  DS.B 
TamponSortie  DS.B 
TamponEntre DS.B 


BufferErreur DS 
VolumeCourant DS 
Rectanglelimite DC 
RectEffaceNumero 


RectEffaceVille DC 
RectEffaceNomt DC 
RectEffaceNom2 DC 


72 


72 
4,'.Aîn',0 
5, .AOut' 

io FQE Size 
i0FQEÏSize 
700 

700 

5 


1 
28,4,338,508 


84,0,100,500 
0,104,100,500 
0,104,52,500 
84,104,100,500 


32 
544 
1 


1 
1 
1 
1 
1 
1 
1 
1 


HandleControle DS.L 
PointeurTampon DS.L 
CompteurTuming DSL 
Numero_Curseur DS 
C_Nom DS.B 
C_Prenom DS.B 
C_Adresse DS.B 
C_Ville DS.B 
C_Departement DS.B 
C_Numero DS.B 
Copie_Affichage DS.B 
DrMenuFichier  DS.B 
DrMenuEdition  DS.B 
DrMenuMode DS.B 
DrLPT1Valide  DS.B 
DrMinitel DS.B 
DiComi DS.B 
DrNumero DS.B 
DrDepart DS.B 
DiCouleur DS.B 
DrAttente_Affichage_Ville 
DS.B 
DrRepere DS.B 
Dr_Attente Vijle 
DS.B 
DrNumero_ en_cœours 
DS.B 
DrLigne DS.B 
DrCaionne DS.B 


Dr_Attente_Nom DS.B 


Dr_Attente_Departement 


DS.B 
Dr_Attente_Prenom 
DS.B 
Dr_Attente Nom_Suite 
DS.B 
Dr_Attente_ Adresse 
DS.B 
DrAffichage DS.B 
DrFinFichier DS.B 
Dr_Erreur DS.B 
ChaineNom DC.B 
ChainePrenom  DC.B 
ChaineAdresse DC.B 
ChaineVille DC.,B 
ChaineDepartement 
DC.B 
ChaineNumero  DC.B 
Prompt DC.B 
NomDefaut DC.B 
Table] DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 





ns si ei né 


1 


1 


si ni ei à 


5, Nom 

8,' Prénom :',0 
9, Adresse :” 
7, Ville :' 


BJ 
‘Département : 
8. Numéro :,0 


18,' Enregistrer | 


sous :',0 
10,'Sans titre',0 
$23,'£ 
$24,'3' 
$26,#' 
527,6 
$2C,'<' 
S2D} A) 
$2E,'>' 
$2F,'v' 
$30,'° 


Table_Gra 
Table Cir 
Table_Tre 


Curseurl 


Curseur2 


Curseur3 


Curseur4 


Cursurlbis 


Curseur2bis 


DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 


$31%+ 
$38,'+" 
$3C//" 
$3D,'/ 
$3E,'/" 
S6A, Œ' 
$7 A, 'cœ' 
$S8A ,'£ 
‘aèeèuû 
DC.B ‘aâeéitoouü' 
DC.B ‘aäeëñoouëü’ 
Align 2 


DC.L $07C01930,521084104 
DC.L 


$41048102,$8102FFFE 
$81028102,541044104 
521081930,507C00000 
0,0,0,0,0,0,0,0 
PK LA 
$07C01830,520484044 
$4084B082,580028382 
$8162821A,$42044404 
$24081830,507C00000 
0,0,0,0,0,0,0,0 
767. 
$507C01830,520085014 
$48248442,582828102 
$82828442,548245014 
$20081830,507C00000 
0,0,0,0,0,0,0,0 
7,7 
507C01830,524084404 
$4204821A,581628382 
$8D028082,540844044 
$20481830,507C00000 
0,0,0,0,0,0,0,0 
757 
$07C01FF0,53FF87FFC 
$7FFCFFFE SCO06C006 
$SC006FFFE, $7FFC7FFC 
S3FF81FF0507C00000 
$07C01FF0,53FF87FFC 
$7FFCFFFE,SFFFEFFFE 
SFFFEFFFE,$7FFC7FFC 
S3FF81FF0.507CG0000 
72/1 
$07C01FFO0,$3FF87FFC 
$7FFCFFFE,SFFFE8002 
SFFFEFFFE.$7FFC7FFC 
$3FF81FF0,$507C00000 
$07CO01FFO0,S3FF87FFC 
$7FECFFFE,SFFFEFFFE 
$SFFFEFFFE,$7FFC7FEC 
$3FF81FF0,507C00000 
774 


Source ‘T_Pom's/2.Asm' 


InfoFichier 
LEA TamponiO| 
Destination(A5),A0 
LEA NomFichier(A5),A1 
MOVE.L  Al,ioFileName(A0) 
MOVE  Volume(A5),f 
ioVRefKum{A0) 
CLR.B ioFileT ype{A0) 
CLR ioFDirindex(A0) 
_GetFilelnfo 
BEQS @1 
@2 MOVE #l,-(SP) 
BSR Erreur 
RTS 
@1 LEA TamponlO{ 
Destination(A$),A0 
MOVEL  #TEXT'| 
ioFlUsrWds+fdType(A0) 
MOVEL #'MACA'ioFIUsrWds+] 


fdCreator(A0) 





_SetFilelnfo 


BNE.S 
RTS 


FermeDestinatio 


@2 


n 


SF DrMenufFichier(A5} 
BSR ChangeCurseur 
LEA TamponlOf 
Destination(A5),A0 
_Close 
BSR InfoFichier 
MOVE.L  PointeurFenetre(A5),-(SP) 
PEA Titre 
_SetWTitle 
MOVEL  HandleMFichier(A5),] 
-(SF') 
MOVE #mFermer,-(SP} 
_Disableltem 
RTS 
Boutons 
RTS 
Beep7 
MOVE #7,-(SP) 
_SysBeep 
RTS 
Erreur 
LISIK A6,#0 
BSR Beep7 
CLRL -(SP) 
MOVEL  #STR ;,-(SP) 
MOVE 8(A6)},-(SP) 
_GetResource 
MOVEL  (SP}+,A2 
MOVEL  A2,A0 
_HLack 
MOVEL  (A2),-(SP) 
CLRL -(SP) 
CLRL (SP) 
CLR.L -{SP) 
_ParamText 
CLR -(SP) 
MOVE #128,-(SP) 
CLR.L -(SP) 
_StopAlert 
MOVE (SP}+,D0 
MOVEL  A2,A0 
_HUn£Lock 
UNLK A6 
MOVEL (SP), Deux(SP) 
ADDQ.L  #Deux,SP 
RTS 
TesteEntree 
LEA TamponlOEntre(A$), AO 
MOVE #2,csCode(A0) 
_Status.mmed 
TSTL csParam(AO) 
RTS 
ValideMenus 
SUBQL  #4,SP 
_FrontWindow 
MOVEA.L (SP}+,44 
MOVEQ  #0,D5 
CMP #UserKind,[ 
windowK:'nd(A4) 
BNE.S FenetreAccessoire 
TST.B DrMenuFichier(A5) 
BNE.S @1 
MOVEL  HandleMFichier(A5),[ 
-(SP) 
MOVE #mFermer,-(SP) 


_Disableltem 


@1 MOVEL 


MOVE 


HandleMFichier(A5),[ 
-(SP) 
#mNouveau,-(SP) 








Ê _Enableltem 
| MOVEL  HandleMEdition(A5)J 
-(SP) 
CEIER -(SP) 
ù _Disableltem 
M _DrawMenuBar 
ë RTS 
le - 
Û FenetreAccessoire 
: TST.B DrMenurFichier(A5) 
BNES @1 
l MOVEL  HandleMFichier(A5),] 
(SP) 
MOVE #mFermer,-(SP) 
_Enableltem 
F @1 MOVEL  HandieMEdition(A5)J 
b 
| -(SP) 
be GR -(SP) 
P _Enableltem 
É _DrawMenuBar 
ë RTS 
k : 
k LireCaractere 
k TSTB DrMinitel(A5) 
Î BNE.S @1 
: LEA TamponlO| 
L Fichier27(A5),A0 
(E MOVEL  #UnioReqCount(A) 
lb LEA scratch8,A3 
MOVEL  A3,ioBuffer(A0) 
| MOVE #fsAtMark,ioPosMode(A0) 
g CLRL ioPosOffset(A0) 
L _Read 
le BEQS @2 
{ CMPI #-39,D0 
BEQS @3 
È MOVE #1,-(SP) 
P BSR Erreur 
L @3 ST DrFinFichier(AS) 
, RTS 
[ @1 LEA TamponlOEntre(A5),A0 
l MOVEL  #Un,ioReqCount(A0) 
| LEA scratch8,A3 
Î MOVEL  A3,ioBuffer(A0) 
MOVE #fsFromStart, 
ioPosMode(A0) 
CLR.L ioPosOffset(A0) 
_Read 
Ê @2 MOVEB (A3),D5 
ANDI #$007F,D5 
RTS 
Place_Caractere 
LINK A6,#0 
| MOVEL  S(A6),A0 
ADDQB  #1,(A0) 
MOVEB (A0),D0 
| EXT D0 
MOVEB  D5,0(A0,D0) 
E UNLK A6 
MOVE.L  (SP),4(SP) 
di ADDQL  #4,5F 
RTS 
Enregistre 
TST.B DrMenuFichler(A5) 
BEQ @2 
LEA C_Nom(A5),A0 
LEA Copie_Affichage(A5), Ai 
MOVEL  #544,D0 
_BlockMove 
MOVE.B  #'e',Scratch8 
PEA Scratch8 
MOVEQ  #1,D0 
MOVEL  D0,-(SP) 
BSR Ecrit 
TST.B Dr_Etreur(A5) 
BNE @2 
BSR Ecrit_CR 


@1 


@2 


Ecrit_CR 
MOVE.B 
PEA 
MOVEQ 
MOVEL 
BSR 
RTS 


Ecrit 
LINK 
LEA 


MOVEL 
MOVE.L 
MOVE 
CLRL 
_Write 


Dr_Erreur(A5) BEQS @1 
@2 CMPI #-33,D0 
C_Nom(As5),DO BNE.S @2 
DO MOVE #2,-(SP) 
DO BSR Erreur 
C_Nom+1(AS) @5 ST Dr_Erreur(A5) 
D0,-(SP) BRA.S @3 
Ecrit @2 CMrlI #-34,D0 
Dr_Erreur(AS) BNE.S @4 
@2 MOVE #3,-(SP) 
Ecrit _ CR BSR Erreur 
Dr_Erreur{A5) BRAS @5 
@2 @4 MOVE #1,-(SP) 
C_Prenom(A5) BSR Erreur 
@1 BRAS @5 
C_Prenom(A5),D0 @1 SF Dr_Erreur{A5) 
DO @3 UNLK A6 
DO MOVEL  (SP),8(SP) 
C_Prenom+1(A5) ADDQL  #8SP 
DO0,-(SP) RTS 
Ecrit 
Dr_Erreur(A5) Zero_Chaines_Nom 
@2 SF C_Nom(A5) 
Ecrit_CR SF C_Prenom(A5) 
Dr_Erreur(A5) SF C_Adresse(A5) 
@2 SF C_Numero(A5) 
C_Adresse(A5),D0 RTS 
DO 
DO Zero_Chaines_ Ville 
C_Adresse+1(A5) SF C_Ville(A5) 
D0,-(SP) SF C_Departement(A5) 
Ecrit RTS 
Dr_Erreur(A5) 
@2 Affichage_Ville 
Ecrit_CR PEA RectEffaceVille 
Dr _Erreur(A5) _EraseRect 
@2 MOVEL  #$0040006D,-(SP) 
C_Viile(A5),D0 _MoveTo 
DO PEA C_Ville(A5) 
DO _DrawStrin 
C_Ville+1(A5) MOVEL  #$0050006D,-(SF') 
DG,-(SP) _MoveTo 
Ecrit PEA C_Departement(A5) 
Dr_Erreur(A5) _DrawString 
@2 LEA C_Ville(A5),A0 
Ecrit_CR LEA Copie_Affichage+| 
Dr_Erreur(A5) 384(A5),A1 
@2 MOVEL  #128,D0 
DrNumero(A5) _BiockMove 
@2 SF Copie_Affichage(A5) 
C_Numero(A5),D0 SF Copie_Affichage+128(A5) 
DO SF Copie_Affichage+256(A5) 
DO SF Copie_Affichage+512(A5) 
C_Numero+1(A5) RTS 
D0,-(SP) 
Ecrit 
Dr_Erreur(A5) D #0 DI 
se MOVEB  C_Nom(A5),DI 
crit_CR ; EXT Di 
Zero_Chaines Nom ADD D1,D0 
MOVE.B C Prenom(A5),DI 
EXT DT 
ADD D1,D0 
#13,Scratch8 MOVEB C_Adresse(A5),D1 
Scratch8 EXT Di 
Free ADD D1,D0 
D0,-(SP) MOVEB  C_Numero(A5),Di 
Ecrit EXT D1 
ADD D1,D0 
BNE.S @3 
SF Dr_Erreur(A5) 
A6,#0 BRA.S @2 
TamponlO| @3 TSTB DrAffichage(AS) 
Destination(A5),A0 BEQS o4 
B(A6).ioReqCount(A0) SF Dr_Erreur(A5) 
12(A6),ioBuffer(AO) BRA.S @2 
#fsAtMark,iolosMode(A0) @4 ST DrAffichage(A5) 
ioPosOffset(A0) PEA RectEffaceNomi1 
_EraseRect 
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MOVEL  #50010006D,-(SP) 
_MoveTo 
PEA C_Nom(A5) 
_DrawString 
MOVEL  #$0020006D,-{SP) 
_MoveTo 
PEA C_Prenom(A5) 
_DrawsString 
MOVEL  #5$0030006D,-(SP) 
_MoveTo 
PEA C_Adresse(A5) 
_DrawString 
TST.B DrNumero(A5) 
BNE.S @1 
BSR Enregistre 

@2 RTS 

@1 PEA RectEffaeeNom2 
__EraseRect 
MOVE.  #$0060006D,-(SP) 
_MoveTo 
PEA C_Numero(A5) 
_DrawString 
BSR Enregistre 
RTS 


Ville_Departement 


TST.B Dr_Attente_ Ville(A5) 
BNE.S @1 

@2 RTS 

@1 CMPIB #542,DrCouleur(A5) 
BNE.S @2 
CMPI.B #1,DrLigne(A5) 
BEQS @2 
SE Dr_Attente_Ville(A5) 
ST Dr_Attente / 

Departement(A5) 

RIS 

Ville _Ville 
TST.B Dr_Attente_Ville(A5) 
BNE.S @1 

@2 RTS 

@1 CMPIB #5$47,DrCouleur(A5) 
BNE.S @2 
SF C_Ville(A5) 
RTS 


Dcpartement_Ligne 





Suite(A5) 
ST Dr_Attente Adresse(A5) 
SF C_Adresse(A5) 


RTS 


Adresse_Fin 


TST.B Dr_Attente_Adresse(A5) 
BNE.S @1 

@2 RTS 

@1 CMPI.B #S42,DiCouleur(A5) 
BNE.S @2 
SF Dr_Attente_Adresse(A5) 
RTS 

MiseJourZones 
MOVEL  #$0G40006D,-(SP) 
_MoveTo 
PEA Copie_Affichage+384(A5) 
_DawString 
MOVE.L  #$0050006D,-(SP) 
_MoveTo 
PEA Copie_Affichage+448(A5) 
_DrawString 
MOVEL  #50010006D,-(S[} 
_MoveTo 
PEA Copie_Affichage(AsS) 
_DrawString 
MOVEL  #$0020006D,-(SP) 
_MoveTo 
PEA Copie_Affichage+128(A5) 
_DrawString 
MOVEL  #$0030006D,-{SP) 
_MoveTo 
PEA Copie_Affichage+256(A5) 
_-DnawsString 
TST.B DrNumero(A5) 
BNE-S @1 
RTS 

@1 MOVEL  #50060006D,-(SP) 
_MoveTo 
PEA Copie_Affichage+512(A5) 
_DrawString 
RIS 


Source ‘T_Pom's/3.Asm’ 


TraïitSource 


ADD D0,D0 
LoPE Ra 7. MOVE  TableSource(D0),DO 
BNES ei JMP TableSource{D0) 
RTS : Rp 
FinMenu-TableSource 
QUE nes A5) DC TmPoms?27-TableSource 
ST DrAttente_Affichage ‘1 DC TmMimitel-TableSource 
RTS Ville(AS) TraitSortie 
ADD D0,D0 
MOVE TableSortie(D0),DO 
Nom_Prenom JMP TableSortie(D0) 
TSI.B Dr_Attente Nom(A5) TableSortie 
BEQS @1 _ DC FinMenu-TableSortie 
CMPE.B #6,DiColonne(A5) DC TmQuitter-TableSortie 
BMLS @1 DC TmApplications-Î 
CMPI.B #31D:Colonne(A5) TableSortie 
BGES @1 
SE Dr_Attente Nom(A5) 
ST Dr_Attente_Prenom(A5) TmMini'tel 
SF DrAffichage(AS) TST.B DrMinitel(A5) 
SF C_Prenom(AS) BNES @1 
@1 RIS ST DrMinitel(A5) 
MOVE.L  HandleMSource(A5),-(SP) 
SuiteNom_ Adresse MOVE #mMinitel,-(SP) 
TST.B Dr_Attente_Nom_/ MOVE.B  #255,-(SP) 
Suite(A5) _Checkltem 
BNE.S @1 MOVE.L  HandleMSource(A5),-(SP) 
@2 RTS MOVE #mPoms27,-(SP) 
@1 CMPIB #$42,DrCouleur(A5} CLR -(SP) 
BNE.S @2 _Checkitem 
SF Dr_Attente_Nom_f @1 BRA FinMenu 
Pom's n° 30 


@1 


BSR 
BRA 
SE 
SF 


Boucle27 


BSR 


TmQuitter 


TmApplications 


@3 


@i 


@2 


BSR 
MOVE 
RTS 





#$640064,-(SP) 
-{SP) 

FiltreFichiers 
#1-(SP) 

Type27 

(SP) 
ReponseGetFile(AS) 
#SFGetFile,-(SP) 


AfficheTitre 

MiseJour Zones 
ReponseGetFile+] 
rGood(A5) 

FinMenu 
TamponlOFichier27(A5),] 
A0 

ReponseGetFile+] 
rName(A5),A1 
Al.ioFileName(AO) 
ReponseGetFile+r Volume 
{A5),ioVRefNum(A0) 
ioOwnBuf(A0) 
#fsRdPerm,iolerinssn(A0) 


@1 

#1,-(SP) 

Erreur 

FinMenu 
DrFinFichier(AS) 
DrMinitel(A5) 


Niveau 
DrFinFichier(A5) 
Boucle27 
TamponlOFichier27(A5).[ 
A0 


DrMinitel(A5) 
FinMenu 


FermeSerie 
#-1,D0 


MOVE #80,-(SP) 

MOVE (SP),-(SP) 

CLRL -(SP) 

CLRL -(SP) 

MOVE #Un,-(SP) 

PEA TypeAPPEL 

CLRL -(SP) 

PEA ReponseGetFile[ 
Quitter(A5) 

MOVE #SFGetFile,-(SP) 

_Pack3 

IST ReponseGetFiieQuitter+f 
rGood(AS) 

BEQ FinMenu 

BSR FermeSen'e 

SUBQ.L #Quatre SP 

_FrontWindow 

TSTL (SP) 

BNE.S @1 

ADDQ #Quatre, SP 

BRAS @2 

_HideWindow 

BRA.S @3 

LEA TamponlO(A5),A0 

MOVE ReponseGetFileQuitter[ 
+rVolume(A5) f 
ioVDrvNum(A0) 

_SetVol 

MOVEQL #Quatre,DO 

MOVE.L  AppParmHandle,AO 


_SetHandleSize 














MOVEL  AppParmHandie, A0 MOVEL  (SP)+,/ BSR LireCaractere 
MOVEL  (AO),A0 CompteurTiming(AS) BRAS @3 
CLRL (A0) ADDQ #1,Numero_Curseur(A5)}) @2 CMPLB #$42,D5 
CLR -{SP) ANDI #50003,J BEQS @4 
PEA ReponseGetFileQuitter+] Numero _Curseur(AS) CMPI.B #$47,D5 
rName(A5) RTS BNE.S @5 
MOVEL SP,AO @4 MOVE.B D5,DrCouleur(A5} 
_launch ChangeCurseurBis BSR Ville_Departement 
MOVE Numero_Curseur(A5),D4 BSR Ville Ville 
FermeSerie ANDI #1,D4 BSR SuiteNom_Adresse 
TSE.B DrMenuFichier(AS5) BEQ.S @1 RTS 
BEQS @1 PEA Curseur1bis @5 BSR Departement Ligne 
LEA TamponiODestination] BRAS ChangeCurseur2 RTS 
(A5),A0 @1 PEA Curseur2bis 
_Close BRA.S ChangeCurseur2 Changement_Position 
ESR InéoFichier BSR LireCaractere 
@1 ro TamponlOEntre(A5),A0 Sourre ‘T_Pom's/4.Asm’ Le ë 
LEA TamponlOSort(A5),AO : @2 RTS 
_Close PPvA80 @1 MOVEB  D5,DrLigne(A5) 
RTS BSR CurseurAttente ANDIB  ##00111111,DrLigne(A5) 
BSR LireCaractere BSR lireCaractere 
TmNumero TST.B D5 TST.B D5 
MOVEL  HandieMFichier(A5),J BSES, (er BEQS  @2 
-(SP) Re MOVEB  D5,DrColonne(A5) 
MOVE  #mNumero,-(Sl} @1 CMPIB  #$C,D5 ANDLB  #%00111111/ 
TST.B DrNumero(AS5) BEQSS Changement_Page DrColonne(A5) 
SEQ DrNumero(A5) TST-B DrDepart(AS) BSR Nem_Prenom 
MOVE.B  DrNumero(AS),-(5P} BEQ-S @2 BSR Adresse Fin 
_Checkltem CMPLB #1,D5 RTS . 
TST.B DrNumero(A5} BEQ.S Repere_1 
BEQ.S @t CMPI1.B #S1B,D5 
BSR AfficheChaine Numero BEQ.S Changement_Couleur nel as c 
@2 BRA FinMenu CMPLB  #$1F,D5 LE . SE 
@1 PEA RectEffaceNumero BEQ Changement_Posit.on TST.B D 
Érasehect CMPLB  #S10,D5 BNES  @1 
ERAS @2? BEQ Numero Telephone @2 RIS 
CMPLB #$60,DS @1 CMPI1.B #2,DS 
; D. BEQ Fin_Ensemble_ 60 BNE.S @3 
FiltreFichiers CMPLB #518,D5 SE Dr_Attente_Prenom(A5) 
LINK A6,#0 BEQ Fin_Ensemble_1B ST DrNumero_en_cours(A5) 
MEVREL D0-D2/A0-A2,-(SP) CMPLB  #SI6,DS . C_Numero(A5) 
M À 8(A6),A0 BRAS @2 
TSTB  ioFiAttrib(A0) RE @3 CMPLB  #3,D5 
BMILS FiltreNon BMLS @? BNE.S @2 
MOVE ioFIUsrWds+fdFlags(AO), Î BRA Dispatch SF DrNumero_en_couis(A5) 
DO ST Dr_Attente Nom_J 
ANDI #$5000,D0 Suite(A5) 
BNE.S FiltreNon Repere_1 LEA C_Nom(A5),A0 
! CLR 12(A6) B5R LireCaractere MOVE.B  (AO),DO 
BRAS FiltreOK TST.B D5 EXT DO 
FiltreNon BNE.S @1 CMPIB #' ‘O(A0,D0) 
MOVE #$FFFF,12(A6) @2 RTS BEQ.S e4 
ñ FiltreOK @1 MOVEB D5,D0 CMPIB #127,D0 
| MOVEML (SP+,D0-D2/A0-A2 ANDI.B  #50F,DO BEQ.S @4 
” UNLK A6 BEQS @2 ADDQ.B  #1,(A0) 
C MOVE.L  (SP),4(SP) CMPI.B #9,D0 MOVE.B  #' ',I(A0,D0) 
13 ADDQL #4SP BGT @2 @4 RTS 
Se RTS BSR LireCaractere 
! TST.B D5 Fin_Ensemble_60 
Curseur Attente BEQS @2 BSR LireCaractere 
SUBQ.L #4,SP CMPI.B #4,D5 TST.B D5 
_TickCount BNE.S @?2 BNE.S @1 
J MOVE.L  CompteurTiming(AS),DO SE DrRepere(AS) @2 RTS 
1 ADDQL  #2,D0 RTS @1 CMPIB  #$12,D5 
CMP.L (SP)+,D0 BNE.5 @2 
BMILS ChangeCurseur Changement_Page BSR LireCaractere 
RTS BSR Zero _Chaïines_Ville TST.B DrAttente_Affichage_f 
7 ChangeCurseur ST DrDepart(A5) Ville(A5) 
" TST.B DrMenuFichier(AS} ST Dr_Attente_Ville(A5) BEQ.S @3 
; BEQ.S ChangeCurseurBis SF Dr_Attente_Nom(AS) CMPI.B #10,DrLigne(A5) 
* MOVE #68,D0 RTS BGE.S @2 
. MOVE Numero_Curseur(A5),D4 TST.B C_Vilie(A5) 
à MULU D4,D0 Changement_Couleur BEQ.S @2 
; LEA Curseur1,A2 BSR LireCaractere TST.B C_Departement(A5) 
PEA O(A2,D0) TST.B D5 BEQ.S @2 
: ChangeCurseur2 BNE.S @1 BSR Affichage_Ville 
_SetCursor @3 RTS SF DrAttente_Affichage_J 
D | SUBQL  #4,5P @1 CMPILB  #$36,D5 Ville(AS) 
: | _TickCount BNE.S @2 BRA.S @4 
* | 
| 
# t 
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@3 TST.B Dr_Attente_Nom(A5) 
BNE.S @2 
BSR Affiche_Tous 
TST.B DrMenurFichier(A5) 
BEQ.S @4 
TST.B Dr_Erreur(A5) 
BEQ.S @4 
BSR FermeDestination 

@4 ST Dr _Attente_Nom(As5) 
SF C_Nom(AS) 
RTS 


Fin_Ensemble_ 18 
TST-B Dr_Attente_Nom{A5) 
BNE.S @1 


BSR Affiche_Tous 
TST.B DrMenuFichier(A5) 
BEQS @2 
TST.B Dr_Erreur(A5) 
BEQS @2 
BSR FermeDestination 
@2 ST Dr. Attente_Nom(A5) 
SF C_Nom(AS) 
@1 RTS 


Caractere_ALC 


BSR LireCaractere 
LEA Tablel,A0 
MOVEQ  #16,D0 

@1 CMP.B (A0),D5 
BEQS @2 


ADDQ.L  #2,A0 
DBRA D0,@1 
BRAS Caractere_ALC_Accent 


@2 MOVEB  1(A0),D5 
BRA Dispatch 
Caractere_ALC_ Accent 
CMPI.B #$41,D5 
BNE.S Caractere ALC_ Accent 2 
BSR LireCaractere 
LEA Table_Gra,AO 
MOVEQ  #2,D0 
@1 CMP.B {A0),D5 
BEQ.S @2 


ADDQL  #2,A0 
DBRA DO,@1 
RTS 
@2 MOVEB  1(A0),D5 
BRAS Dispatch 
Caractere_ALC_Accent_2 


CMPI.B #$42,D5 
BNE.S Caractere_ALC_Accent_3 
BSR LireCaractere 
CMPLB #'e',D5 
BEQS @1 
RTS 
@1 MOVEB  #'é,D5 


BRA.S Dispatch 
Caractere_ALC_Accent_3 


CMPI.B #$43,D5 
BNE.S Caractere_ALC_Accent_4 
BSR LireCaractere 
LEA Table_Cir,A0 
MOVEQ  #4,D0 
@i CMP.B (A0), D5 
BEQS @2 


ADDQL  #2,A0 
DBRA D0,@1 
RTS 
@2 MOVEB  1(A0),D5 
BRA.S Dispatch 
Caractere_ALC_Accent_4 


CMPLB #$48,D5 
BNE.S Caractere_ALC_ Accent _5 
BSR LireCaractere 
LEA Table_Tre,AU 
MOVEQ  #4,D0 
@1 CMPB (A0),D5 


BEQS @2 


ADDQL  #2,A0 
DBRA D0,@1 
RTS 
@2 MOVE.B 1(A0),D5 
BRAS Dispatch 
Caractere_ALC_Accsnt_5 


CMPI.B #S4B,D5 
BEQ.S @2 
RTS 

@2 BSR LireCaractere 
CMPLB #'c',DS 
BEQS @1 
RTS 


@1 MOVEB #<',D5 
BRAS Dispatch 


Dispatch 
CMPI.B #2,DrLigne(A5) 
BMI.S @2 
TST.B Dr_Attente Ville(A5) 
BEQ.S R_Departement 
CMPLB #5,DrColonne(A5) 
BMIS @2 
CMPI.B #$47,DiCouleur(A5) 
BNE.S @2 
CMPI.B #63,C_Ville(A5) 
BEQ.S @2 
PEA C_Ville(A5) 
BSR Place_Caractere 

@2 RTS 


R_Departement 
TST.B Dr_Attente _f 


Departement(A5) 
BEQS R_Confirme 
CMPI.B #5,DrCoalonne(A5) 
BMIS @2 
CMPI.B #S42,DrCouleur(A5} 
BNE.S @2 
CMPI.B #63,C_Departement(A5} 
BEQS @2 
PEA C_Departement(A5) 
BSR Place_Caractere 

@2 RTS 


R_Confirme 
TST.B DrAttente_Affichage_| 


Ville(A5)} 
BEQS R_Nom 
RTS 
R_ Nom 


TST.B Dr_Attente_Nom(A5) 
BEQS R_Prenom 


CMPLB #3,DrLigne(A5) 
BMI-S @1 
CMPI.B #5,DiColonne(A5) 
BMI.S @1 
CMPI.B #$47,DiCouleur(A5} 
BNE.S @1 
CMPI.B #127,C_Nom(A5) 
BEQS @1 
PEA C_Nom(A5) 
BSR Place_Caractere 
@1 RIS 
R_Prenom 
TST.B Dr_Attente_Prenom(A5) 
BEQ.S R_Numero 
CMPI.B #3,DrLigne{As5) 
BMIS @1 
CMPI.B #5,DiColonne(A5) 
BMILS @1 
CMPIB #$47 ,DrCouleur{A5) 
BNE.S @1 
CMPI.B #127,C_Prenom(A5) 
BEQ.S @1 
PEA C_Prenom(AS5) 
BSR Place_Caractere 


@1 RTS 


R_Numero 
TST.B DrNumero_en_cours(A5) 
BEQ.S R_Nom_Suite 


CMPIEB #31,C_Numero(A5) 
BEQ.S @1 
PEA C_Numero{(A5) 
BSR Place_Caractere 
@1 RTS 
R_Nom Suite 
TST.B Dr_Attente_Nom_f 


Suite(A5) 
BEQ.S R_ Adresse 





CMPI.B #4,DrLigne(A5) 
BMIS @1 
CMPIB #5,DiColonne(A5) 
BMIS @1 
CMPI.B #$47 ,DrCouleur(A5) 
BNE.S @1 
CMPI.B #127,C_Nom(A5) 
BEQS @1 
PEA C_Nom(A5) 
BSR Place_Caractere 
@1 RTS | 
R_Adresse 
TST.B Dr_Attente_Adresse(A5) 
BEQ.S @1 
CMPI.B #4,DrLigne(A5) 
BMIS @1 
CMPI.B #5,DrColonne(A5) 
BMLS @1 
CMPI.B #$42,DrCouleur{A5) | 
BNE.S @1 
CMPI.B #127,C_Adresse(A5) | 
BEQ.S @1 
PEA C_Adresse(A5) 
BSR Place_Caractere 
@1 RTS 


Fichier ‘T_Pom's.R’ 


T_Pom's 
APPLPfAm 


Type PéAm = STR 
Pom's - Filtre abonnés Minitel - Mai 1987 


TypeMENU 
n| 

M4 

*1A propos de ‘T_Pom's’.… 

(Ë 


Type MENU 
2 


Fichier 
A2Nouveau.../O 
ee 
Fermer/F 
Œ 


A3Numéros 
Type MENU 


3 

Édition 
Annuler/Z 
{- 
Couper/X 
Copier/C 
Coller/V 
(- 


Effacer 


Type MENU 








ne LL 


À 

Source 
Fichier ‘Pons 27"... 
IN125Minitel 


Type MENU 
3 


Quitter 
ABvers le ‘Finder‘/Q 
Ndvers une application. / A 


Type ALRT 


128 (4) 
82 72 178410 
128 
5535 


Tvpe DITE 
1284) 
2 


Button 
56 25680 352 
OK 


StaticText 
166148352 
A0A19273 


Type STR 
A1 (4) 
Erreur d'entrée/sortie. 


72 (4) 
Le catalogue est saturé. 


A (4) 


Le volume est saturé. 


Type DLOG 
1 (4) 


5072290 440 

Visible NoGoAway 
1 

(a 

1 


Type DITL 
#1 (4) 
14 


StaticText 
00248 38 
\20 


Iconltem 
2424 56 % 
257 


Îcenltem 
192 312 228 344 
266 


StaticText 
12 7228352 
T_Pom’s — V 10/Mac 


StaticText 
3672532352 
® 1987 Pom's/Éditions MEV 


StaticText 
52 72 68352 
Jean-Luc Bazanegue et Christian Piard 


StaticText 
762492352 





“T_Pom's” utilise l'annuaire électronique 


StaticText 

9224108352 

—ouun fichier créé parle programme 
‘Minitel’ 


StaticText 
108 24 124352 
du numéio 27 de Pom's — pour constituer des 


StaticText 

12424 1403352 

fichiers d'adresses directement | 
exploitables. 


StaticText 
148 24 164 352 
Les ‘sources’ (MDS 68000) de Ia version 1.0 se 


StaticText 
16124 180 352 
trouvent dans Le numéro 30de ‘’Pem's”. 


StaticText 
196 24 212 2% 
Pom's/Éditions MEV — 12, rue d'Anjou — 


StaticText 
212242282% 
78000 Versailles — Tél]. : (1) 39 51 24 43. 


Type BNDL 
128(32) 
PfAmO 
ICN# 
0128 
FREF 
0128 


Type FREF 
,128(32) 
APPL 0 


TYPE ICN# = GNRL 


* Icône application 

A28(32) 
2 
7FFFFFFE 80000001 A0000005 9FFFFFF9 
98000019 93FE6[C9 9000A009 97FD4FE9 
90018009 973D3CE9 907F D609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FAA349 
987D4619 9FFFFFF9 A000000S BFFFFFFD 
&0000006 25555504 20000004 ZAA A AAA 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFTC 


7FFFFFFE FFFFFFFF FEFFFFFE FFFFFFFF 
FFFFEFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFEFFFFF FFFFFFFE FFFFFFFE FFFFFFFF 
FFFFFFEF FFFFFFFE FEFFFFEF FFFFFFFF 
FFFFFFFE FFFFFFFF FFFFFFFE FFFFFFFF 
7FFFFFFE 3FFFFFEC 3FFFFFFC 3FFFFFFC 
3FFFFFFC 3FFFFFEC 3FFFFFFC 3FFFFFFC 
3FFFEFFC 3FFFEFFEC 3FFFFFFC 3FFFFFEC 


TYPE ICON = GNRL 


* Icône à propos 

257 (4) 
7FFFFFFE 80000001 A 0000005 9FFFFFF9 
98000019 93FE6FC9 9000A 009 97FD4FE9 
90018009 973D3CE9 907FD609 96FEAB69 
90FD4509 96FAA369 90FD4509 92FAA349 
987D4619 9FFFFFF9 AC000005 BFFFFFFD 
60000966 25555504 20000004 2AAAAAA4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFEC 20018004 3FFFFFFC 


* Nouveau 

258 (4) 
7FFFFFFE 60000001 A0000005 9FFFFFF9 
96000019 90000009 93DEDBC9 9198D989 
9198D989 91985189 919C2189 91985189 
9198D989 9198D989 919ED989 9000000 
98000019 SFFFFFF9 A0000005 BFFFFFFD 
60000006 25555504 20000004 2AAA AAA sous 
20000004 25555504 20000004 2AFFEA7 +4 
20000004 3FFFFFFC 20018004 3FFFE 





* Fermer 

9259 (4) 
7FFFFFFE 80000001 9F87E1F9 AC4SUAS 
A6499265 A0481205 BFCFF3FD 9FE2E2 
80000001 9F87E1F9 A0481205 A6499265 
A0481205 BFCFF3FD 9F87E1F9 8000 
9F87E1F9 A0481205 A6499265 A04812%5 
BFCFF3FD 9F87E1F9 80000001 9FS7E%E= 
A0481205 A6499265 A0481205 BFCFF3D) 
9F87E1F9 80000001 7FFFFFFE 000000) 


* Source Fichier 27 

,260 (4) 
OFFFFCO0 08000600 09134 D00 DAAA ASS 
0B12A440 OA 000420 0A0007F0 0833C010 
08484010 08108010 08210010 08410010 
08790010 08000010 08000010 09FC 0910 
08000010 083DE010 08000010 097CF810 
08000010 063F9F10 08000010 098F8F10 
08000010 087EEF90 08000010 09F3E 590 
08000010 08000010 08000010 OFFFFFFO 


* Source Minitel 

,261 (4) 
7FEFFFEE 80008001 A0000005 9F FFFEF9 
98186199 9FFFFFF9 90000009 9FFFFE F9 
904C0C29 9FFFFFF9 96318C09 9FFFFFF9 
90411849 9FFFFFF9 90000009 9FFK:FFF9 
98C31919 9FFFFFF9 A0000006 BFFFFFFD 
60000006 25555504 20000004 2 A À A AA A4 
20000004 25555504 20000004 2AFFEA74 
20000004 3FFFFFFC 20018004 3FFFFFFC 


* Finder 

,264 (4) 
OFFFFFFO 10000008 13FFFFCS 17FF-FFE8 
1668F468 16D5EAE8 1645E2E8 16D5EAES8 
1655EAE8 17FFFFE8 17998A6 8 179494E8 
17949CE8 17948E68 17949F68 16949E68 
173988E8 17FFFFE8 13FFFFC8 10000008 
10000008 10000008 100001C8 1200FFC8 
10000008 10000008 10000008 OFFFFFFO 
08600010 0A 000050 0890001 0 07FFFFEO 


* Application 

7265 (4) 
00010000 00028000 00044000 00082000 
00129000 00254800 0048A 400 00904200 
01282100 02144080 040A 8040 09450020 
12A2801024514008 4828BF04 84144082 
4A2A8041 25438022 1283C814 095E7F0F 
04123007 02510007 01288007 00906007 
00401FE7 0020021F 00100407 COO80800 
00041000 00022000 60014000 00008000 


* Pom's 

,266 (4) 
00000000 00000050 00000080 00001100 
000008A.A 00000155 00000GAA 00001401 
00002A 02 00004514 O000A 280 00015140 
000228 A0 00051440 00028A 00 00014560 
0028A2A0 00545140 008A 2980 00453D72C 
00A2FFD6 1451FEAB 2A28FD45 4515FAA3 
A20AFD45 5100FAA3 2A007D46 14007AAA 
0A003D54 050014 A8 02800DD0 01000660 


INCLUDE T_Pom's.Code 


oo 
52 
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TPom s : 
Minitel, Apple // et le 11 


Ce programme a pour objet la 
récupération des informations 
accessibles sur le Minitel par le 
11, c'est-à-dire les noms, 
numéros de téléphone et adresse 
des abonnés figurant à l'annuaire 
électronique. 


Le programme constitue sur 
disque un fichier comprenant 
l'ensemble des abonnés affichés 
par le service, fichier imprimable, 
récupérable par un traitement de 
textes ou par votre propre 
programme de mailings par 
exemple. 


Le programme ne fonctionne que 
sous ProDOS. 


Configuration 


Pour utiliser ce programme, vous 
devez disposer des éléments 
suivants : 


Vous avez un Apple }{+ : 


* une ROM pour l'affichage des 
minuscules ; 

+ un Minitel, 

+ une Carte ‘langage’ qui accueil- 
lera ProDOS ; 

* une carte SuperSérie Apple ; 

* un câble de liaison type Apple 
lJe. 


Vous avez un Apple {le équipé ou 
non du 65C02 : 


° un Minitel; 

* une carte SuperSérie Apple ; 

* un câble de liaison type Apple 
Île. 

Vous avez un Apple IC : 

- un Minitel; 

* une carte SuperSérie Apple ; 


* un câble de liaison type Apple 
Ie. 


Vous avez un Apple IIGs : 


° un Minitel, 

* un câble de liaison type Mac- 
intosh Plus (on utilise le port 
série intégré). Si vous désirez 
utiliser une carte SuperSérie 
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installée dans l'un des slots, il 
faut un câble type Apple //e. 


Tous les types de Minitel 
conviennent. Le câble peut être 
réalisé d'après les schémas des 
numéro 27 et 28 de Pom’s ou 
commandé à la revue (bon de 
commande page 74). 

Le programme se charge de 
rechercher la carte SSC pour le 
port série en commençant par le 
port 7 pour finir par le 1. Une 
carte en port 2 sera donc utilisée 
même s'il en existe une également 
en port 1 (cas du //c et du IIGs). 


Mode d'emploi 


Le programme crée sur disque un 
fichier de type TEXT comprenant 
les abonnés consultés à l'aide du 
Minitel. Les différents options du 
menu sont les suivantes : 


Recevoir l'annuaire 
avec numéros de 
téléphone 

Option KR : Le programme vous 
demande le nom du fichier TEXT 


à créer avant de se mettre à 
l'écoute du Minitel. 


Le nom de fichier doit respecter la 
syntaxe ProDOS (la routine de 
saisie élimine la plupart des fautes 
possibles). Il peut être de la 
forme : 

/RAM/CHEMINEES78 

ou 

CHEMINEES 


Dans ce dernier cas, le préfixe par 
défaut est utilisé pour déterminer 
le volume d'accueil du fichier. 


Si le fichier existe déjà sur le 
volume, le programme refusera 
de l'écraser, ceci pour éviter les 
conséquence d'une fausse 
manœuvre. 


Dans le cas où vous désirez 
réellement remplacer un fichier 
existant appuyer Sur : 





Christian Piard 


- %æ (IIGs) ou 

- Option (IIGs) ou 

- de, //c) ou 

- Ô(//e, //c) ou 

- un bouton du joystick (][+) 


lorsque vous faites le RETURN de 
validation du nom de fichier. 
L'éventuel ancien fichier sera 
écrasé. 


Le programme affiche alors 
fichier TEXT créé. Il ne reste 
plus qu'à commencer la 
consultation sur Minitel. La 
mémoire disponible pour les 
adresses est d'environ 26000 
octets, ce qui suffit pour 3 à 400 
adresses. Le compteur affiché à 
l'écran vous indique en 
permanence la place disponible. 


À tout moment. pour libérer de la 
place en mémoire, il est possible 
de presser S ce qui provoque 
l'écriture sur le volume ; la taille 
du fichier n'est donc limité que 
par la place disponible sur le 
disque. En fin de consultation, 
presser ESC ce qui sauvegarde la 
mémoire et reconduit au menu 
général. 

Au fur et à mesure de l'enregis- 
trement, les noms, adresses et 
numéros de téléphone appa- 
raissent à l'écran. 


Recevoir l'annuaire 
sans numéros de 
téléphone 


Option L : Toutes les indications 
de l'option précédente restent 
valables. Seule différence : les 
numéros de téléphone ne feront 
pas partie du fichier : c'est donc 
la solution à retenir dans la 
perspective d'un mailing. 


Imprimer un fichier 


Option I Conçue comme 
accessoire, cette option permet 
d'imprimer un fichier TEXT sans 
devoir nécessairement charger 





AppleWorks, AppleWriter ou 
autre. 


Un fichier d'adresses vient d'être 
créé cette option permet 
d'obtenir rapidement sa représen- 
tation papier, sans souci de 
présentation. 


Le programme, qui suppose 
l'imprimante connectée au port 1, 
interrompra l'impression si vous 
pressez ESC. 


L'impression de fichier d'un type 
autre que TEXT sera refusée ; 
toutefois, les fichiers de textes 
AppleWorks sont admis. 


Modifier le préfixe 
Option M : C'est l'option à 
choisir pour changer le préfixe 
par défaut, préfixe qui est rappelé 
en haut de l'écran. Par exemple : 


/UNIDISK2/POMS30/T3 


Volumes en ligne 

Option V : Option indispensable 
pour identifier les disquettes, 
disques virtuels et autres volumes 
actuellement disponibles. 


Catalogue 


Option C : Permet le listage des 
fichiers du catalogue visé par le 
préfixe par défaut. Si celui-ci est : 


/PROFILE/CLIENT 


seuls les fichiers du dossier 
CLIENT apparaîtront. 


Quitter 


Option Q : Contrairement à CTRL- 
RESET, Cette option perrnet de 
quitter le programme. 


Le filtrage 


La récupération des éléments 
purement TEXT de l'annuaire 
électronique présente bien des 
difficultés du fait du caractère non 
standard de la présentation. Il 
faudra œuvrer en traitement de 
textes avant d'envisager 
l'impression d'étiquettes-adresse 
(ne serait-ce que pour ajouter les 
code postaux indisponibles dans 
la consultation). 


Pour l'identification de ce qui doit 


Deux pages de l'annuaire illustrant la Variété’ de la présentation 


ee ee 6 2 6 8 8 
FNAC 
PRAIS PARIS 1 


> 1 F.N.A.C. (Fédération 
Nationale d'Achats des 
Cadres ) 


F.N.A.C Autoradio 
(Fédération 
Nationale d'Achat 
des Cadres} 


2 -54 av Bosquet 7e (1) 45 51 28 15 


3 -1STéer bd Gouvion {12 45 94 S? 41 


St Cyr 7e 


4 -53 r Richard (12 43 67 38 OS 


Lenoir: île 


> plus d'informations 
tapez le N° choisi puis > ENVO 
pase suivante > SUITE 
(QD HN nee es Me Ds De do me We fe Ode Mo Me Me eo Me ee Do M A M de DS de ns A8 HN 9 fs fs nn DE 098 098 os 298 


être un nom, une adresse ou un 
téléphone, le programme se base 
sur la couleur et la position des 
éléments mais le filtrage et la 
reconnaissance des divers 
éléments n'est pas efficace à 
100%. Les mentions du type 
futur numéro OU téléphone 
de voiture en lieu et place de 
l'adresse sont difficilement 
décelables. Le programme ne 
donnera pas un résultat 
satisfaisant lorsque plusieurs 
numéros sont affectés à un 
abonné. Selon la présentation — 
très variable — la récupération se 
fera plus ou moins bien. 

Les copies d'écran Minitel 
annexées illustrent ces variations. 


Pour une page affichée sur 
l'écran du Minitel, 600 à 1000 
caractères (texte, contrôle et 
graphisme) sont émis sur la prise 
péri-infonnatique. Après filtrage 
des caractères inutiles pour nous, 
il peut ne rester que 4 ou 5 
adresses de 70 caractères soit 600 
ou 708 caractères éliminés. 


Précautions, 
Remarques, 
Mailing 

Le programme, pour constituer 
des adresses cohérentes, attend 
un effacement de page toujours 


suivi de l'affichage de la ville en 
haut de l'écran. 


Il faut donc mettre le programme 


2 2e ne ne 2 x ns 2 ne ms hs me 298 UM 8 8 M eo ee eo 6 2 18 A be 2 2 2 29 1 8 M M ms 


HINISTERE 
PARIS PARIS 1 


1 Ministère Agriculture 


2 Ministère Défense C1) 42 61 57 31 
231 bd St Germain 7e 





3 Ministère Justice (1) 42 60 13 60 


t3 pl Vendome te 

Ministère Justice 
4 —13 pl Vendeme le (1) 42 61 80 22 
19 42 61 SS 85 


a 


—nene adresse 


> plus d'informations 


tapez le N° choisi:... puis > ENUUI 
page suivante > SUITE 


Be gs Me 8 2 a ue 9 PDP D DD D DDC 


à l'écoute du Minitel avant même 
de commencer la consulation 
pour que l'Apple voit bien passer 
la ville. Sinon, rien ne sera 
enregistré. 


Dans le fichier TEXT, les 
adresses sont séparées par *+* 
pour que votre programme ou 
votre traitement de texte identifie 
facilement le début et la fin. 

Pour réaliser un mailing à l'aide 
d'AppleWriter par exemple, 
remplacer les *+* par des sauts 


de page par la commande : 
CTRL-B 
CTRL-F /#**/.FF/A.J 


Spécifier un espace entre pages 
de 10 lignes si vos étiquettes sont 
distantes de 10 lignes : 


CTRL-P IP10.1 


La liaison Minitel/Apple peut ®IrE 
vérifiée de la façon suivante : 
programme prêt à enregistrer, 
presser des touches sur le clavier 
du Minitel. À chaque caractère 
reçu par l'Apple, le premier ‘—? 
de la ligne 8 doit se transformer 
en un ‘+’ puis en un ‘—’,etc. 


G 





Source T.POMS.1 


Assembleur ProCODE 
POT T.POMS.2 
PÜT T.POMS.3 
POT T.POMS,4 


rene 


54 


Pom's n° 30 


RE En 








Représentation d'une page de l'annuaire électronique 


ProDOS 





(+ 








(633 caractères) 
VE //e 
2600:14 QC 00 00 1E 1F 41 45 1B 47 4D 49 4E 49 53 54 —...... ÂE.GMINIST Récupération 
2610:45 52 45 1F 42 45 1B 47 50 41 52 49 53 20 1B 42 -ERE.BE.GPARIS .B , //et 
2620:50 41 52 49 53 20 1F 43 41 1B 44 60 12 67 1F 41 -PARIS .CA.D .Q.A par T Pom's 
2630:41 18 46 2E 12 42 14 1F 30 34 18 00 00 00 OA 18 -A.F..B..04...... sans n° de Je 
2640:00 00 00 OA 18 00 00 00 8A 18 00 00 O0 OA 18 00 rss rrsure vase 
2650:00 00 CA 18 00 00 00 OA 18 00 00 00 OA 18 00 00 —........sssreue téléphone llgs 
2660:00 OA 18 00 00 00 OA 18 CO 00 00 OA 18 00 00 00 sise ssemuuus x 
2670:0A 18 00 00 00 CA 18 00 00 00 CA 18 00 00 00 OA ss sueuuus (206 caractères) 
2680:18 00 00 00 OA 18 00 00 00 OA 18 00 00 00 OA 18 sure 
2690:00 00 00 OA 18 00 00 00 OA 18 00 00 00 OA 18 14 —.........sss... Seuls les caractères TEXT 
26A0:1F 42 66 1B 42 20 20 35 1F 44 43 1B 47 O1 31 04 -.Bf.B S5.DC.G.I. je ent 
26B0:20 1F 44 45 1B 47 4D 69 6E 69 73 74 16 41 65 72 - .DE.GMinist.Aer utilisables sont gardés ; les 
26C0:65 20 64 65 20 6c 61 20 1F 44 SA 1B 47 10 02 28 -e de la .Dz.c..(  Ca'ACTÈTES ACCENIUES SONT 
26D0:31 29 20 34 37 20 30 33 20 34 39 20 38 38 10 03 -1) 47 03 49 88. recodés avant stockage. 
26E0:1F 45 45 1B 47 4A 75 73 74 69 63 65 1F 46 45 1B -.EE.CJustice.FE. 
26F0:42 31 33 20 20 70 6c 20 56 65 6E 64 16 43 6F 6D -B13 pl Vend.Com Ro. 
2700:65 20 20 31 65 1F 47 45 18 44 60 12 63 1F 48 43 —e le.ce.n".e.m Ministère de la 
2710:1B 47 O1 32 04 20 1F 48 45 1B 47 4D 69 6E 69 73 —G.2. .HE.GMinis Justice 
2720:74 16 41 65 72 65 20 64 65 20 6C 61 20 4D 65 72 -t.Aere de la Mer 3 pl Vendome le 
2730:1F 48 5A 1B 47 10 02 28 31 29 20 34 32 20 37 33 -.Hz.G..(1) 42 73 
2740:20 35 35 20 30 35 10 03 1F 49 45 1B 42 33 20 20 - 55 05...IE.B3 PARIS 
2750:70 6C 20 46 6F 6E 74 65 6E 6F 79 20 20 37 65 1F -pl Fontenoy 7e. *** 
2760:4A 45 1B 44 60 12 63 1F 4B 43 12 47 01 33 04 20 -JE.D'.c.KC.C.3. ee 
2770:1F 4B 45 1B 47 4D 69 6E 69 73 74 16 41 65 72 65 -.KE.cuinist ere Milistère de lä Mer 
2780:20 64 65 20 6C 61 20 1F 4B 5A 18 47 10 02 28 31 - de la .Kz.6..(1 3 pl Fontenoy 7e 
2790:29 20 34 35 20 36 37 20 35 35 20 34 34 10 03 1F -) 45 67 55 44... PARTS 
27A0:4C 45 1B 47 53 61 6E 74 16 42 65 1F 4D 45 1B 42 -LE.GSant.Be.ME.B  h,, 
27B0:31 20 20 70 6C 20 46 6F 6E 74 65 6E 6F 79 20 20 -I1 pl Fontenoy 
27C0:37 65 1F 4E 45 1B 44 60 12 63 1F 4F 45 1B 47 4D -7e.NE.D'.c.cE.cm Ministère de la 
27D0:69 6E 69 73 74 16 41 65 72 65 20 64 65 73 20 1F -inist.Aere des Santé 
27E0:50 45 1B 47 52 65 6C 61 74 69 6F 6E 73 20 45 78 -PE.CRelations Ex 
D7r0:74 NéM0e 165 72 C9 65 15 72 65 #5 1F 52 43 M4 her eue rec J PI FENtENOY 7e 
2800:01 34 04 20 2D 1F 52 46 1B 42 33 37 20 20 71 75 -.4. -.RF.B37 qu PARIS 
2810:61 69 20 4F 72 73 61 79 20 20 37 65 1F 52 SA 1B -ai OrsaY 7e.RZ.  »xx 
2820:47 10 02 28 31 29 20 34 35 20 35 35 20 39 35 20 -G..(1) 45 55 95 ; ne 
2830:34 30 10 03 14 1F 32 33 On 18 00 00 1F 32 33 1B -40....23..... 23 mRelations EXtérieures 
2840:44 60 12 67 14 1F 58 51 OD 18 00 00 1F 58 51 1B -D'.g..xç..... WW Sn quai Orsay 7e 
2850:42 70 61 67 65 OE 20 OF 73 75 69 76 61 6E 74 65 -Bpage. .suivante PARIS 
2860:0FE 20 OF 16 2E 1B SA 1B 50 20 1B 5D 20 53 55 49 -—, ,,..2Z.P .} SUI 
2870:54 45 20 20 14 1F 41 41 11 TE ..AA. REA 
Source T.POMS.2 es F7 me vo 
Assembleur ProCODE STROBE = SC010 JSR HOME 
#2 = SC030 LDY #0 
a COUT = SFDED ]1 LDA PASSSC, Y 
* ANNUAIRE GBASL - 526 BEQ 2 
#* {c)] Pem's & CP GBASCALC = SF 847 J$R COUT 
ne VTAB = mn SEC 27 INY 
*120587 cv = 525 BNE 1 
DSK T.POMS WNDTOP. = $22 VSR BJIP 
ORG 52000 WNDBTM = 523 12 UMP BASIC 
CH = $24 
COMPT = $18 STROUT = SDB3A DEVOO LCA SFBB3 
FILEBUEF = $1000 HOME = SEC58 CMP #6 
BUFONLIN = $1500 TEXT = SFB39 BNE  DEVCOE 
BUFFIN = S1600 BASIC S3D0 LDA SFBCO 
PATANAME = $1700 CLREOP E $EC42 BNE }j1 
MLI = SBF00 CLREOL = $SEC9C SR DEUXC 
CREATE = $co LINPTR = SED24 
OPEN E $CB8 LASTDEV = SBF30 ]1 LOA INT 
READ = $CA JSR SFESS 
WRÎTE = $CB DEBO0 LDX #SFF LCA #7 
CLOSE ee soc TXS JSR COUT 
GETFINFO = $C4 LDA $BF00 UJSR SFE93 
ONLINE = $CS CMP #S$S4C LDA #7 
STPREFIX = $Cé BEQ DEVO USR SSC 
GTPREFIX = $sC7 LDA #S7F JSR PARASSC 
GETTIME = S82 VSR ERREUR USR INITSSC 
GETEOF = $D1 UMP BASIC 





Pom's n° 30 


ho en "ù 








1" 


DEVOE LDA #<RESET 
STA $3F2 
LOA WSRESET 
STA S$3F3 
EOR #$AS 
STA $3r4 


LDA  LASTDEV 
STA LD 

JSR MLI 

DFB ONLINE 

DA PARLDO 

ECS MENU 

LDA  PATHNAME 
2ND ##00001111 
STA PATANAME 


11 LDA PATANAME, Y 


STA PATANAME, Y 


CPY #0 

BNE ]1 

LDA, a" 

STA  PATHNAME+: 
INC  PATENAME 


JSR MLI 
DFB STPREFIX 
DA  PARLDI] 


JMP MENU 


RECANN 
DA RECANNST 








RECANNST LDA 


RECANN LDA 


RECANNI JSR 


Ji LDA 


J2 LDA 


fo 
TELEPA 
RECANNI 


#1 
TELEPA 
BOME 
LITPREF 


LNGPATHN 
PATHNAME 
44 

VTAB1 

GEI 

J1 

GETRET 
MENU 


#8 
CA 
AUXTYPG 


BLOCKUS 


AUXTYPG+1 
BLOCKUS +1 
LINPTR 

CH 


DA IMPRIME INY 
DA  MODPREF BNE ]1 
DA  ONL 12 LDA #1 
DA CATAL STA LONG 
Da QUITTER LDA #19 
JSR GBASCALC 
MENU LDA #21 LDA #35 
JSR COUT ADC GBASL | 
JSR TEXT STA GBASL | 
JSR HOME BCC 3 
JSR CLOSEFIL INC GBASL+] 
LDA #1 
USR LIGNE 13 * sl 
0 LDA BUFFIN 
Sr dan 14 CHP  MESCHOIX, Y 
J1 LDA MESTITRE, X nu ‘3 
BEQ J2 
JSR COUT Er 
JSR BIP 
IN BES 2 
BNE ]J1 
12 AMEN 15 LDA  #<ADRCHOIX 
nr) STA CHOIXINO+] 
STA  WNDTOP 
TYA 
ne BEQ CHOIXIND 
Sen (AÉERE J6 INC  CHOIXIND+] 
2Ds QU INC  CHOIXIND+] 
UJSR  VTABI 
LDY #46 _ 
13 1DA POMS,Y PRET 
STA S49F,Y 
DEY CHOIXIND JMP  (ADRCHOIX} 
BPL ]3 
LIGNE JSR GBASCALC 
CHOIX LDA #4 LDY #39 
JSR VTABI LDA #"" 
LOY #0 J1 STA {GBASL),Y 
J1 LDA MESMENU, Y DEY 
BEC J2 BPZ J1 
JSR COUT RTS 
13 LDA #6 + limite fenetre 
STA WNDTOP 
LDY #39 ; affiche message en bas 
130 LDA BAS,Y ; de l'écran 
; réception sans n° téléphone STA $J7D0,Y 
DEY 
BPL ]3G 
; réceptien avec n° J3000 JSR SAISINI /; saisie du nom de fichier 
BCC 300 
UMP MENU 
1300 JSR CREFIC ; création du fichier 
BCS  RECANNI 
; cherche place disponible sur 1301 LDA LNGPATHN 
; le volure STA PATHNAME 
JSR OUVREFIC + Ouverture du fichier 
BCC J31 
UJSR ERREUR 
JSR GETRET 
JMP MENU 
131 JSR VIDEF ; remet le fichier à 
BCC J31A ; Q s'11 existait 
USR GEÊTRET 
UMP MENU 
# l'affiche J31A JSR HOME 
USR INICOMPT 
JSR TRAITI ; affiche mémoire disponible 
LDA f13 
USR VTAB1 
LDY #0 ; affiche "prêt à recevoir" 
1310 LDA PRET, Y 
BEQ J311 
JSR COUT 
INY 
BNE 310 
JS 11 LOA #10 





DR 


BOUCLE 


110 


JAI 


J111 


2 


13 


74 


RI1F 


12 


13 


130 


1300 


14 


15 


16 


160 


17 


VTABI 
INICORPT 


#542 
HVILLE 

aSFF 
DP 


RIiC 
#51F 
RIF 


#si8 
110 
R1B 
#510 
2 
R10O 


BOUCLE 
RAUTRE 


N 
12 


F1 
HVILLE 
1300 
BOUCLE 
35 

F2 
#545 
J4 

#i 

v 

#0 

PP 

RIC 
RIC 
RVILLE 
BOUCLE 


F2 
1545 
16 

17 
BOUCLE 


FI 
2549 
160 

#1 
NA 

#0 

PP 
BOUCLE 


#1 


Pom's n° 30 


Lu 


a 


LU 


Lo 


. 


 % 


. 


LD 


 % 


; Si nom en coûurs, 


initialise compteur de 


R1B 
ville présumée en 2ème ligne 
aucun caractère reçu 
122 
boucle principale : on teste 
les caractères de contréle de 
l'affichage Minitel et on 
positionne 
des drapeaux en conséquence 
pour afficher et stocker ou 
non les carac qui suivront 
1220 
13 
J4 
R10O 
si on n'a Dès reçu la ville 
on n'affiche rien. 
affiche éventuellement 
Ji 


reçu S1iF 
fin du nom 


si adress en cours, fin adress ]2 


si prénom en cours, fin prénom RI1B 


recevoir 2 caractères de plus 
Fl et F2, qui suivent S1F 


si FI = 
Cn va 
< 42, 


42 (ou 43.) et F2 = 45 
recevoir la ville. 
on boucie 


Ja 
R6O 


c'est la ville 


J1 
évite le premier S$S1B $47 
avant de recevoir la ville RC 


a <> S42, 
F2 = 45 ? 
oui, on recevra nom où adresse 
> à 45, on recevra le prénom 

autre chose, 


ce n'est pas la vill R16 


on boucle 
nom et adresse ne peuvent être 
avant ligne 545 


J1 


on recevra nom ou adresse 


On recevràä prénom 12 


(3 
BOUCLE 


NA 
122 
RIC 
BOUCLE 


NA 
BOUCLE 


NA 
BOUCLE 


RIC 
#2 
J1 
#1 


PP 
BOUCLE 


AP 

PP 

DP 

J1 
AFVILLE 
TRAIT 
BOUCLE 


RIC 
#s12 
12 

R18 
BOUCLE 


#0 


BOUCLE 


De N Se Se 


Lu 


,. 


LA 


* 


7 


LU 


LE 


; on hésitait entre nom/adress ? 


; reçu $60, 
; si c'est 12, fin du groupe 
; nom + adresse + tél + comment 


; reçu $16, alphabet G2 


j Si carac = 
; minuscule accentuée ou Çç 


non, on boucle 

oui, on reçoit un autre caract 
c'est 42, on recevra peut-être 
une adresse 

adresse possible ? 


c'est 47, on recevra un nom 


on attend un caract 


alcrs débur & téléph 


reçu 10, 
c'est 2, 


autre, or bovcie 

reçu S18 ou $60 $12 

fin d'un Groupe ou d'ine page 
réinitialise les drapeaux 





attend l caract 


sinon on boucle 


ville non refte 





S$4x, c'esi une 


; ce n'est pas un accent 


cherche dans la table 


51 








LDA ACTLY 
JUMP  RAUTRE 
R162 STX C1 
JSR RIC 
STA C2 
LDY #0 
71 LDA C1 
CMP. ACT2,Y 
8NE )2 
INY 
LDA C2 
CMP  ACT2,Y 
BNE ]3 
INY 
LDA ACT2,Y 
; MP  RAUTRE 
] INY 
13 INY 
INY 
CPY #45 
BNE ]J1 
JMP BOUCLE 
RAUTRE CMP 3520 
BCC 1 
STA CRECU 
LDA TELEPH 
AND T 
SRAUUT 
LDA P 
| AND PP 
Le CRA N 
ORA À 
ORA T 
4 ORA NA 
BEQ J1 
B LDA CRECU 
» STA CRECUI 
a AND #$7E 
hi STA DP 
5 JSR COUTI 
pe J1 JMP BOUCLE 
= 
d FINNOM BIT DP 
= BMI J1 
JSR CROÛT 
J1 LDA 40 
: STA N 
F4 LDA #1 
f STA PP 
e STA AP 
S RTS 
: FINADR BIT OP 
BMI }1 
= JSR CROUT 
= Ji LDA #0 
H | STA À 
| RTS 
&. 
A FINPRE BIT BP 
in EMI j1 
a JSR  CROUT 
ja J1 LDA 40 
E STA P 
le RTS 
tqs 
RVILLE  LDA Æ#0 
Je STA VILLE 
]4 JSR RIC 
| CMP $S1F 
al BEQ 6 
[Les CMP #S1B 
l= BEe 5 
Le INC VILLE 
| LDY VILLE 
É STA VILLE, Y 
CPY #30 
pm BNE J4 
na 15 LDA #0 
La 
1 


; charge carac correspondant 
; avanc traitement normal 


; on attend le deuxième 
Caractère 


% 


compare le premier 


,. 


; compare ie detixière 


; opérations logigqres sur 

; les drapeaux pour décider 
# si on affichera ou non 

; le caractère reçu. 


; Prénom possible 
; aûresse possible 


si on n'a pas reçu de caract 
il n'y a pas de prénom 


.. 


; stocke ville 


; ce n'était pas la ville 


16 


COUT 1 


AFVILLE 


RIC 


11 
SVM 


TRAIT 


751 


TRAITI 


1100 


#5s42 
HVILLE 
#1 

VR 
BOUCLE 
#$543 
RVILLE 
RIF 


#580 
STOCK 
COUT 


VILLE 
J2 


#1 
VILLE, Y 
COUT 


VILLE 


11 
CROUT 


RECOIT 
11 

KBD 
STROBE 
#%11021111 
ns" 

SVM 

#S9B 

RIC 
SAÛUVEMENM 
LOYER 


MENÜ 


SAUVEMENM 
#$SFF 


DR 


DP 
TRAITE 
CROUT 
SFC42 
#$8D 
STOCK 
F3 
gr 
STOCK 


J1 
#58D 
STDCK 
#SFF 
pP 


#8 
VTAB1 
#0 
CH 


#25 
gun 
COÛT 


J100 
ue 
COUT 
+" LL 
COÛT 


#SFF 
COMPT 


#595 
COMPT+1 
LINPTR 
ÿ" " 
COUT 


“ ville reçue 


/ Ville en ligne 3 et non 2 
; car la rubrique occupait 2 
‘ lignes 


/ ‘'poïdsforise' le caractère 
; stockage et affichage 


: affiche et stocke la ville 


reçeit 1 caractère 
retenue = 0 : pas reçu 


une touche pressée ? 


Ve Ve 


; convertit en majuscule 

/ Si S, or sauvegaräe 

; et on continue à enregistrer 
; si ESC, on sauvegarde et 

s on termine 


: a-t-on reçu des caractères ? 


efface fin écran 


LA 


met un séparateur entre deux 
adresses 


LEA 


; affiche mémoire disponible 








J101 


TRAIT2 
STOCK 


J1 


12 


JEIN 


CROCT 


71 


SAUVEMEM 


J1 


INICOMPT 


VILLE 


CRECU 
CRECUI 
DP 
HVILLE 
VR 
TELEPH 
RY 
CARAC 
C1 

C2 

BL 





DS 


DS 


ASC 
DFB 


gnyn 
CoUT 

um 

COÛT 

CH 

1101 

CROUT 

#10 

VTAB1 

CROUT 

CARAC ’ 
RY 7 


stocke les caractères reçus 
et fiitrés 


COMPT 
#5FF 

ji 
COMPT+1 
#595 
JFIN 
COMPT 
12 
COMPT+1 


; mémoire saturée ? 


soui, on enregistre 


{COMET) , Y 
RY 


SVM 


CRECUI 

#58D 

J1 

580 ; stocke un retour chariot 
CRECUI 

STOCK 
CLREOL ? 
SDAFB ? 


efface fin de 1a ligne 
crout 


458D 
$3000 


COMPT+1 
#50 
LAS+1 
COMPT 
LAS 

EF 

Ji 
ERREUR 
GETRET 


Ds be be ba be Obs be bot bus bu us ot ns ne bus bus bus be bo 


"blocs libres sur ce disque" 
(e) 


Pom's n° 30 


a 


BAS ASC “<ESC> Sauvegarde/Fin <S> Sauvegarde 

PRET ASCA M Fichier TEXT créé ” 
ASC "“ Pret pour consultation de l'annuaire " 
DFB 0 


A 


* IMPRIMER UN FICHIER 


HOME 
LITPREF 


IMPRIME UJSR 
UJSR 
11 JSR SAISIN2 ; saisie du nom de fichier 
8CC J2 
MENU 
LNGPATHN 
PATHNAME 
OUVREFIC ; 
BC }3 
ERREUR 
GETRET 
IMPRIME 


2 LDA 


ouverture du fichier 


120 


33 JSR GFI FI 


720 î 


get file info pour type de 
fichier 


FILETYG 

CMP #4 / 
38 

#S$1A ÿ 
38 

#57C i 
120 


fichier TEXT ? 


fichier de texte AppieWcrks 7 


non, erreur 


]3B LDA 41 ; 
LAS 
LDA 40 


LAS+i 


ne lire qu'un caractère 


130 LITFIC ; le 
8cc ]4 

#54C : 
FINIMPRI 
ERREUR 
GETRET 


MENU 


) La 
lire 


fin de fichier ? 


$3000 

#*$80 

#SBD î 
BNE JS 


14 LDA 


est-ce un CR 


#79 : 
NBCR ; 
Sc100 / 
NBCR 
BPL }6 
#58D 
$ci00 
179 
NBCR 
KBD 
STROBE 
598 
130 
#58) 
$c100 
SFE93 
MENU 


on n'imprimera pas plus de 
80 caractères par ligne 
futile si ce n'est pas un 
fichier d'adresse qui est 
imprimé) 


15 JSR 


» 


LT 


6 LDA 


FINIMPRI LDA 


N&CR Ds 1 











JSR HOME 
JMP BASIC 


Source T.POMS.3 
Assembleur ProCODE 


# SAISIE NOM FICHIER 


Re 


SAISINI JSR SAISP 


QUITTER JSR TEXT LDY #>NOMFICH 


LDA  #<NOMFICH 
BNE SAISIN3 


SAISIN2 YSR SAISP 
LOY #>NOMFICHI 
LCA  #<NOMFICHI 


SAIÏSINS JSR STROUT 


LDA #38 

STA LONG 

LDA #9 

JSR  GBASCALC 

JSR INPUT 

CC J1 

RTS 
11 LOY TES 

SNE 2 

JSR BIP 

BCS SAISINI 
12 STY PATHNAME 

STY  LNGPATHN 
13 LCA BUFFIN,Y 

IN 

STA PATHNAME, Y 

DEY 

DEY 

DRE) 

(res 

RTS 


SAISP LCA #7 
STA CV 
JSR VTAB 
LDA #0 
STA CH 


NOMFICH ASC 


"Nem du fichier TEXT à créer : 


DFB 0 
NOMFICHI ASC 


“Nom du fichier TEXT à imprimer 


DFB O0 


STX POSC 

LDY LONG 

LDA # rrrr 
el DEY 


BEQ INCLAV 
STA (GBASL}),Y 
BNE ]1 


INCLAV  LDA #")" 
STA (GBASL),Y 


INCLAVIi LDA (GBASL),Y 
EOR #1 
STA (GBASL),Y 
LDX #539 

Di BEX 
BNE Jj11 
LDA KBD 
BPL INCLAVI 
BIT STROBE 


CMP #$59B 

BEQ INESC 
CMP 588 

BEQ  INRETOUR 
CMP  &SFF 

BEQ INRETOUR 
CMP  #$BD 

BEQ INVALID 
CPY LONG 

BEQ INERR 


CMP pr. 

BCC INERR 

CMP #8"/" 

BEQ SLASH 

CME ga" 

BCC CHIFFRE 
AND #311011111 
CMP  #$DB 

BCS INERR 

BCC INLETTRE 


SLASH CPY #0 
BEC INLETTRE 
BNE CHIFFREI 


CHEFFRE (CMP +": 


BCS INERR 

CPY 80 

BEQ INERR 
CHIFFREI TAX 

DEY 

LDA  (GBASL),Y 

INY 

CMP #"/" 

BEG INERR 

TXA 


BMI INLETTRE 


INERR JSR BIP 
BCS  INCLAVI 


INESC LDY LONG 


LDA #4" 
11 STA (GBASL),Y 
DEY 
BPL 1 
LDA #0 
STA BUFFIN 
SEC 
RTS 


INRETOUR LCA POSC 
BEQ INERR 
CMP LONG 
BNE INRI 
LCA 4 LUE LS 
BNE INR2 
INR1 LDAN 70 
INR2 STA  (GBASL),}Y 


DEC POSC 
JMP INCLAV 


INLETTRE STA (GBASL),Y 
INC  POSC 


JMP  INCLAV 


INVALIO STY TPS 


LOA 1" 

10 STA (GBASL),Y 
CPY LONG 
BEQ 1 
INY 
BNE 0 

]1 LDY TES 
LDA 0 
STA BUFFIN,Y 
DEY 
BMI 3 

12 LDA  (GBASL),Y 
STA BUFFIN,Y 
DEY 
BPL J2 

13 CIC 
RTS 

Fr ne ete, 

* CATALOG 


CATAL JSR HOME 


LDY #0 

J0 LOA CMD,Y 
STA S200,Y 
Ce 4530 
sEQ 1! 


BNE J0 


11 JSR  SBEO3 
CMP #6 
BEQ TO 
CMP 48 
BNE IT 
JTO JSR ERREUR 
HUE JSR GETRET 
JSR HOME 
JSR LITPREF 
UMP CHOIX 


* CHERCHE DATE/HEURE 
* CREE FICHIER 


CREFIC LDA $CO61 


ORA $CO62 
STA  POMMES 
LDA #$C3 

STA ACCESBT 
LDA #4 

STA FILETYPE 
LDA #0 


STA AUXFLTP 
STA AUXFLTP+1 
LDA 51 

STA STORAGE 


JSR CREFICH 
8cc 1 

BIT POMMES 
BMI J2 

JSR ERREUR 
JSR GETRET 


SEC 
J1 RTS 
12 cic 
RTS 


CREFICH JSR MLI 
DFS GETTIME 
Da 0 
LDY #3 

de LDA SRFS93,Y 
STA DATECRE, Y 


BPL J1 


JSR MLI 
DFB CREATE 
DA PARLST 


GETLONG JSR MLI 
CFB GETEOF 
Da PAREOF 
HEC 71 
JSR ERREUR 





OUVREFIC JSR 
DFB 
DA 


MLI 
OPEN 
PARLSTO 
11 


RE ——………———— 


Pom's n° 30 


EF LDA REENUM 
STA  REFNUMW 
JSR MLI 
DFB WRITE 
DA PARLSTW 
BCC J1 
JSR ERREUR 


LITIIC IDA  REFNUM 
STA REFNUMNW 
JSR MLI 
DFB  READ 
DA PARLSTW 


VIDEF LDA  REFNUM 
STA REFNUM7 
JSR MLI 
DF8 SETEOF 
DA  PARLST? 
BCCNIE 
JSR ERREUR 


CLOSEFIL LDA REENUM 
STA  REFNUMC 


JSR MLI 
DFB CLOSE 
DA PARLSTC 
RTS 

LE 

“ ONLINE 

onto mmmmmmmmmmess— 

ONL JSR HOME 


LDY #>MESONL 
LDA  #<MESONL 
UJSR  STROUT 


AND #300000111 
ORA #%10110000 
JSR COUT 
LDX #0 

JE LDA MESONI, X 
BEC JF 
JSR COUT 


BNE JE 
JF LDA #"l" 
BIT LNG 
BPL J1 
LDA #&"2" 
J1 “SR COUT 
ÉDA NE" 
ISR COUT 
LDA LNG 
AND SF 
STA LNG 
LDA #y 
JSR COUT 
AFF INY 
LDA BUFONLIN, Y 
ORA #310000000 
JSR COUT 
DEC LNG 
BNE AFF 
LDA #58D 
JSR COUT 
ERR DEC CNT 
BPL ONLYNED 
JSR GETRET 
VADEB JSR HOME 
JSR LITPREF 
UMP CHOIX 


GFI JSR MLI 
DFB GETFINFO 
DA  PARLSTG 
BCE 
JSR ERREUR 


MODPREF JSR HOME 
JSR LITPREF 





STA PATHNAME, Y 


BPL 2 


MODML]I USR MLI 
DFB STPREFIX 
DA PARLSTCP 
BCC  OKCH 


JSR  SDAFE 


JSR ERREUR 

JSR GETRET 

JMP  MODPREF 
OKCH UMP  VADEB 
PARLSTCP DFB 1 

DA PATHNAME 


LITPREF JSR MLJI 
DFB GTPREFIX 
DA PARLSTCP 
BCC ]000 
JSR ERREUR 


J000 LDA #3 
STAIN CV 
JSR  VTAB 


LDX #0 

10 LDA MESSPR,X 
BEQ j00 
JSR COUT 


BNE 0 

J00 LDA PATANAME 
STA LNGPATHN 
LDX #1 

J1 LDA PATHNAME ,X 
ORA 4%10000000 
JSR COUT 
DEC PATHNAME 
UMP  SDAFB 


* RECEVOIR UN CARAC DANS L'ACC 
# CARRY CLEAR SI PAS DE CARACT 


RECOIT BIT DINT 




















JSR MLI MODPR LDA #7 
DFB ONLINE STA CV LDY REGY 
DA  PARLSTN JSR VTAB LDA  SC089, Y 
BCC 0 LDA 40 AND 4#00001000 
JSR ERREUR STA CH BNE ji 

j0 LDA #15 LDY  #>MESMOD CLC 
STA CNT LDA  #<MESMOD RTS 

ONLINED LDA CNT JSR  STROUT J1 LDA ##00000110 
ASL LDA #38 EOR 5428 
ASL STÀA LONG STA 5428 
ASL LDA #9 1DA SCOBB,Y 
ASL JSR  GBASCALC AND ##01111111 
TAY INC GBASL SEC 
LDA  BUFONLIN, Y JSR INPUT RTS 
STA LNG BCS OKCH 
AND #%D0001111 LDY TPS RECOIT? JSR PARASSC 
BEC ERR BNE MODO LDA #1 
LDX 40 JSR BIP JSR  STATSSC 

1G LDA MESONO, X BEQ MODPR BCS OK 
BEQ JH MODO STY PATHNAME RTS 
JSR COUT INC PATANAME 
INX BEQ MODMLI OK LDA #%00000110 
BNE JG DEC GBASL EOR S428 

14 LDA LNG J2 LDA  (GBASL), Y STA 5428 
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USR  READSSC 


| USR PARASSC 
AND ##O1:ïi1111 


PARASSC LDX REGX 
LDY REGY 


ERREUR STA  CODERR 
JSR SDAFB 
JSR SDAF3 
LDA #0 
STA CA 
LOA #20 
STA CV 
JSR VTAS 
LDA #$2i 


USR COUT 
LDA  #" " 
USR COUT 
USR BIP 
LOY #SFF 
J2 INY 
LDA ERREURS, YŸ 


Source T.POMS.4 
Assembleur ProCODE 


J0 


J2 


GETRET 


CODERR 

J0 

40 11 
Ja 


ERREURS, Y 
J0 
COUT 


ERREURS, Y 

j2 

gg" LA 

Cour 

#$2: J3 
COUT 


4 


15 


CA 
F>MESRET 
F<MESRET 


ERREURS DFB 


MESRET 


ASC 


Appuÿez sur 


OFB 


STROUT 


K8D 
J1 


STROBE 
KBD 


15 


<RETURN> 


0 





BIP1 


BIP2 


RESETI 


RESET3 


RESET2 


VTAB1 


#540 


8IP2 
LA 


BIPI 


TEXT 
HOME 
CLOSEFIL 


#40 
MESRESI,Y 
RESET2 
COUT 
RESETI 


GETRET 
DEB00 


Cv 


ASC 
DFB 
ASC 
DFB 
ASC 
DF8 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFB 
ASC 
DFE 
ASC 
DFB 


3,8,527, 528, S2F, S5ÂA, S4E 
"Erreur d'accès disque" 
6,7,545,546 

“Volume/fichier introuvable" 
4, $2B8 

“Disque protégé" 


$40,544 

"Nom incorrect" 
17,548,549 
“Disque/directory saturé" 
$S4E 

“Protégé en lecture" 

S7G 

"Type TEXT seulement..." 
$7D 

"Volume saturé 

S7F 

“ProDOS est indispensable" 
$47 


"Ce nom de fichier existe déjà" 
0 
RE RFeUr 220 


ss." 


_— [Un eollaboerateur de 
Pom's vend neuf, 
pour eause de 

double emploi, un 
Menfeur, un Send ef 


une housse = le fout 


pour Apple //e = au 
prix (ar —35%. 


S'adresser à le 
revue. 
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Pom's n° 30 


SEC ASC "<Qouittez‘ 


UMP $C311 DFB S89 
ASC " Votre choix :" 
R————— DFB O0 
* VERIF SI SSC 
RCD TRE RES EE MESTITRE ASC “Annuaire Electroniqu" 
ASC ‘“e Pom’'s" 
VERSSC LDY #7 DFB S8C,0 
VERIEO TYA 
ORA 45C0 POMS ASC " T_Pom's" 
STA VERIF+2 
VERIF LDA SC00C PASSSC 4SC "La carte SuperSérie est nécessaire..." 
CMP #S31 DFB S8D,0 
BEQ 1 
DEY CMD ASC "CAT" 
8NE VERINO DFB $8D 
SEC PP DS 1 
RTS 
MESONL DFB SBD 
Jp STYUINT ASC ‘Volumes en ligne :" 
TYA DFB S$80 
PHA ASC M ve 
ORA #SC0 DFB S8D,S8D,0 
STA SSCINIT+ MESONO ASC "Port " 
STA SSCREAD+1 DFB 0 
STA SSCSTAT+I MESONI ASC " Lect 
STA SSC1+i DEB 0 
STA J]40+2 
STA }2+2 MESSPR ASC "Préfixe " 
STA }3+2 DFB © 
STA  }4+2 
STA REGX MESMOD ASC "Nouveau préfixe :" 
PLA DFB S8D, SBD 
ASL ASC 
ASL DFB © 
ASL 
ASL MESRESI DFB S8D 
STA REGY asc # 4 
2 LDA SCO00D DFB S80 
STA SSCINIT asc " " 
13 LDA SCO0E INV " T_POM'S vi.0 " 
STA SSCREAO DF8 SBD, SBD, S8D 
14 LDA S5C010 ASC ‘A {c) Pom's, CP, JIB 12/5/1987" 
STA SSCSTAT DEF3 S8D,S8D, S8D,S8D 
LDY #0 ASC æ Un programme Pan's," 
STY DINT DFB S8D,S8D 
140 LDA  5C000 ASC, la revue des Appie" 
CMP #S2C DEB S8D,S8D,58D 
BEC J5 ASC # Revue Pom's : {1] 39 5] 24 43" 
DEC DINT DF3 S8D,$S8D 
75 CLC ASC UT #. 
RTS DF8 0 
SSC UMP  {SsCI) DINT DS 1 
INITSSC JMP ({SSCINIT) POsC DS 1 
READSSC JMP  {SSCREAD) LONG DS 1 
STATSSC JMP  {SSCSTAT)} TPS DS 1 
SSCINIT DA S0000 PARLST DFB 7? { paramètres pour create 
SSCREAD DA S0000 DA PATANAME 
SSCSTAT DA S0000 ACCESBT DS ] 
SsCI DA S0000 EILETYPE DS 1 
AUXELTP DS 2 
+ STORAGE DS 1 
D et UC SNS a DATÈCRE DS 2 
* CHAINES & STOCK DS 2 


PAREOË DFB 2 ; paramètres pour getecf 
MESCHOIX ASC "RLIMVCO" os 1 
Ds 3 

MESMENU DFB SBD,S8D 

ASC ‘“<R>ecevoir annuaire avec n{ de téléphone" 

DFB S8D INT DS 1 

ASC ‘“<Llôe recevoir sans n{ de téléphone" LNGPATHEN DS 1 

DB S8D,S8D 

Asc "“<I>mprimer un fichier" CODERR DS 1 

DFB S8D,S8D 

ASC "“<M>oodifier le préfixe" PARLSTO DFB 3 ; paramètres pour open 

DFB S8D,S8D DA PATHNAME 

ASC "<V>olumes en ligne" DA  FILEBUF 

df S8D,$8D REFNUM DS x 

ASC ‘'<Coatalogue" | 

DFB S8D,S8D PARLSTG DFB SA ; parämètres peur getfileinfo 


RENNES 
Pom's n° 30 63 


re IE 








DA  PATHNAME DF8 S2D,"*" 
DS 1 / lect/écrit/renam.. DFB S2E,"> 
FILETYG DS 1 ; type de fichier DFB $2E, "v 
AUXTYPG DS 2 ; param auxiliaire {l2g par ex} DFB $30,"/ 
DST ; type de stockage DFB $31,"+ 
BLOCKUS DS 2 ; nb de blecs affectés DFB S$38,"/ 
DS DFB $3C,"/ 
DFB S$S3D,"/ 
PARLST# DFB 4 DFB S3E,"/ 
REFNUMW DS 1 DFB SGA, ""* 
DA  $300p DFB S7A,"* 
LAS DS 2 DFB $7B,'"B 
DS 2 DFB 0 
PARLST7 DFB 2 
REFNUM7 DS 1 ACT2 DEB $41,5$565, "è 
DEB C,0,0 DFB $542,565,"é 
DFB $43,565,'ïe 
PARLSTC DFB 1 DFB 548,565,'"e 
REFNUMC DFB O PARLDO DFE 2 DFB S41,$61,"à 
LD DS 1 DFB $543,$61,"a 
PARLSTN DOFB 2 DA PATANAME DFB 54B,561,"a 
DFB 0 PARLDI DF3 1 DEFB 543,569,"1 
DA BUFONLIN DA PATRNAME DFB $48,$569,"1 
DFB $43,56F,"o 
CNT DS 1 ACT1 DFB 523,"8 DFB $4B,S6F, ‘o 
ZNG DS 1 DFB 524,"s DFB $41,575,"àù 
DFB S526,"8# DFB 548,575, "u 
REGX DS 1 DFB 527,"] DFB S4B, $63,"ç 
REGY DST DFB S$2C,"< DF& O© 
Récapitulation T.POMS 22B0:21 20 4A 24 C9 492 D0 15  2438:60 AO 01 B9 41 25 20 2B 
22B8:AD 6E 25 FO O0D A9 01 8D 2440:24 C8 CC 41 25 DO F4 4C 
Après avoir saisi ceite récapitulation 22C0:6F 25 A9 00 8D DB 2D 8D 2448:04 25 20 FF 29 BO 19 AD 
sous moniteur, veus la Sauvegarderez par : 22C8:6p 25 4C F7 21 C9 47 D0  2450:00 C0 2C 10 C0 29 DF C9 
BSAVE T.P@MS, AS2000, 14033 22D0:0D A9 01 8D 71 25 A9 00 2458:D3 FO O0E C9 9B DO EB 20 
22D8:8D DB 2D 8D 6D 25 4C F7 2460:1A 25 A2 FF 9} 4C A7 20 
2000:A2 FF 9A AD 00 BF C9 4C  2158:8D 00 17 A9 04 20 28 2B 22E0:21 20 4A 24 C9 02 DO OA 2468:60 20 1A 25 A2 FF 9A 4C 
2008:F0 08 19 7F 20 43 2n 4C  2160:20 58 29 9 06 20 8E 2A 22E8:A9 01 8D 70 25 A9 00 8D 2470:EA 21 2C 74 25 30 64 20 
2010:D0 03 20 43 2C 90 16 20 2168:4C A7 20 A9 08 85 24 AD 22F0:DB 2D C9 03 DO 08 A9 00 2478:04 25 20 42 FC A9 8D 20 
2018:58 FC A0 00 B9 BO 2D FO 2170:48 2F 38 ED 4B 2F AA AD 22F8:8D 70 25 8D DB 2D 4C F7  2480:DE 24 A0 03 A9 AA 20 DE 
2020:09 20 ED FD C8 DO F5 20 2178:49 2F ED 4C 2F 20 24 ED 2300:21 A9 00 8D 6B 25 8D 71 2488:24 88 DO F8 A9 8D 20 DE 
2028:F2 2A 4C DO 03 AD 53 FB 2180:E6 24 A2 00 BD ?7C 25 F0 2308:25 8D 6F 25 8D 6D 25 8D 2490:24 A0 FF 8C 74 25 A9 08 
2030:C9 06 DO 21 AD CO FB DO 2188:06 20 ED FD E8 D0 F5 A9 2310:70 25 8D 6C 25 8D 6E 25 2498:20 2B 2B A9 00 85 24 A0 
2038:03 20 1E 2C AD 3A 2F 20 2190:06 85 22 A0 27 B9 97 25 2318:8D DB 2D 2C 74 25 30 06 24A0:19 A9 AD 20 ED FD 88 10 
2040:95 FE A9 07 20 ED FD 20 2198:99 DO 07 88 10 F7 20 A1 2320:20 33 24 20 72 24 4C F7  24A8:F8 A9 AF 20 ED FD A9 A0 
2048:93 FE A9 07 20 A4 2C 20 21A0:26 90 03 4C A7 20 20 1F 2328:21 20 4A 24 C9 12 DO 03 24B0:20 ED FD 38 A9 FF E5 18 
2050:3C 2A 20 A7 2C A9 0A 8D 21A8:28 BO A4 AD 38 2F 8D 00 2330:4C 01 23 4C F7? 21 A9 00 24B8:AA A9 95 E5 19 20 24 ED 
2058:F2 03 A9 2B 8D F? 03 49 21B0:17 20 78 28 90 09 20 43 2338:8D 76 25 4C 01 23 20 4A 24C0:A9 A0 20 ED FD A9 AF 20 
2060:A5 8D F4 03 AD 30 BF 8D 21B8:2A 26 8E 2A 4C A7 20 20 2340:24 AA 29 FO C9 40 F0 18 24C8:ED FD A9 AD 20 ED FD A5 
2068:6D 2F 20 00 BF C5 6C 2F 21C0:A3 28 90 06 20 #E 2A 4C 2348:8A A0 00 D9 73 2F FO 09 24D0:24 DO F7 20 04 25 A9 OA 
2070:B0 35 AD 00 17 29 OF 8D 21C8:A7 20 20 58 FC 20 38 25 2350:C8 C8 CO 22 DO F5 4C F7  24D8:4C 2B 2B 4C 04 25 8D 79 
2078:00 17 A8 B9 00 17 C8 99 21D0:20 96 24 A9 OD 20 2B 2B 2358:21 C8 B9 73 2F 4C 8D 23  24E0:25 8C 78 25 A5 18 C9 FF 
2080:00 17 88 88 CO 00 DO F3  21D8:A0 00 B9 Br 25 FO 06 20 2360:8E 7A 25 20 4A 24 8D ?7B 24E8:D0 06 A5 19 C9 95 FO 11 
2088:A9 AF 8D 01 17 EE 00 17 21E0:ED FD C8 DO F5 A9 QA 20 2368:25 A0 00 AD 7A 25 D9 96  24F0:£6 18 DO 02 E6 19 AD 79 
2090:20 00 BF CE 70 2F 4C A7  2]E8:2B 2B 20 38 25 A9 42 8D 2370:2F DO 10 C8 AD 7B 25 D9 24F8:25 AO 00 91 18 AC 78 25 
2098:20 4A 21 43 21 10 26 64 21F0:75 25 A9 FF 8D 74 25 20 2378:96 2F DO 08 C8 B9 96 2F 2500:60 4C 69 24 AD 73 25 C9 
2046:29 C2 28 F3 27 98 26 A9 21F8:9A 24 C9 ir FO 32 C9 18 2380:4C 8D 23 C8 C8 C8 C0 2A 2508:8D DO 01 60 A9 8D 8D 73 
20A8:15 20 ED FD 20 39 FB 20 2200:D0 03 4C A6 22 C9 10 DO 238$:D0 El 4C F7 21 C9 20 90 2510:25 20 DE 24 20 9C FC 4C 
20B0:58 FC 20 B5 28 AS 01 20 2208:03 4C E1 22 C9 18 DO 03 2390:2E 8D 72 25 AD 77 25 2D 2518:FB DA A9 8D 8D 00 30 38 
20B8:36 21 A9 16 20 36 21 AZ  2210:4C 01 23 c9 OC DO 03 4c 2398:70 25 8D 70 25 AD 6C 25 2520:A5 19 E9 30 8D 5A 2F À5 
26C0:00 BD 8A 2D F0 06 20 ED 2218:36 23 c9 60 DO 03 ac 29 23A0:2D DB 2D OD 71 25 0D 6F 2528:18 8D 59 2F 20 84 28 90 
20C8:FD E8 DO F5 20 C7 29 A9 2220:23 C9 16 DO 03 4C 3E 23 23A8:25 0D 70 25 OD 6D 25 F0 2530:06 20 43 2A 20 8E 2A 60 
20D0:03 85 22 A9 16 85 23 A9 2228:AË 76 25 F0 CA 4C 8D 23 23B0:0E ÀD 72 25 8D 73 25 29 2538:A9 00 85 18 A9 30 85 19 
20D8:04 20 2B 28 A0 08 B9 A7 2230:AD 71 25 F0 03 20 C2 23 23B8:7F 8D 74 25 20 2B 24 4C 2540:60 00 00 00 00 00 00 00 
20E0:2D 99 9F 04 88 10 F7 A9 2238:AD 6F 25 F0 03 20 D8 23 2900:F7: 21 2C 74 25 30 03 20 2548:00 00 00 00 00 00 00 00 
20E8:04 20 2B 2B A0 00 B9 BF  2240:AD 6C 25 FO 03 20 E6 23  Z23C8:04 25 A9 00 8D 71 25 A9  2550:00 00 00 00 00 00 00 00 
20F0:2C F0 06 20 ED FD C8 DO  2248:20 4A 24 8D 69 25 20 4A 23D0:01 8D DB 2D 8D 6E 25 60 2558:00 00 00 00 00 00 00 00 
20F'8:FS A9 01 8D 27 2F A9 13  2250:24 8D 6A 25 AD 69 25 cn Z23D8:2C 74 25 30 03 20 04 25  2560:00 00 00 00 00 00 00 00 
2100:20 47 F8 A9 23 65 26 85  2258:75 25 BO 03 4C F7 21 DO 23E0:A9 00 8D 6F 25 60 2C 74 2568:00 00 00 00 00 00 00 00 
2108:26 90 02 E6 27 20 2C 27 2260:1D AD 6A 25 C9 45 DO 13  Z23E8:25 30 03 20 04 25 A9 00 2570:00 00 00 00 00 00 00 00 
2110:A0 06 AD 00 16 D9 B8 2C  2268:A9 01 8D 6B 25 A9 00 8D  Z23F0:8D 6C 25 60 AS 00 8D 41  2578:00 00 00 00 E2 EC EF E3 
2118:F0 08 88 10 F8 20 F2 2A  2270-DB 2D 20 4A 24 20 4A 24 23F8:25 20 4A 24 C9 1F F0 23  2580:F3 A0 EC E% E2 F2 E5 F3 
2120:B0 D7 A9 99 8D 34 21 98  2278:4c F4 23 dc F7 21 AD 6A Z2400:C9 18 FO OD EE 41 25 AC 2588:A0 F3 F5 F2 A0 E3 ES A0 
2128:F0 09 EE 34 21 EE 34 21 2280:25 C9 45 F0 05 BO 17 4c 2408:41 25 99 41 25 C0 IE DO 2590:E4 E9 F3 F1 F5 E5 00 BC 
2130:88 DO F7 6C 99 20 20 47  2288:F7 21 AD 69 25 C9 44 90 2410:E8 A9 00 8D 6B 25 A9 42 2598:C5 D3 C3 BE AO D3 EI F5 
2138:F8 A0 27 A9 DF 91 26 88 2290:0A A.9 01 8D 6D 25 A9 00 2418:8D 75 25 A9 01 8D 76 25  25A0:F6 E5 E7 El F2 Ed ES AF 
2140:10 FB 60 A9 00 8D 77 25 2298:8D DB 2D 4C F7? 21 A9 01 2420:4C F7? 21 A9 43 8D 75 25  25A8:C6 E9 EE A0 A0 A0 A0 A0 
2148:F0 05 A9 01 8D 77 25 20  22A0:8D 6C 25 4C F7 21 AD 6D Ï2428:4C 30 22 09 80 20 DE 24  25B0:A0 BC D3 8E A0 D3 EI F5 
2150:58 FC 20 C7 29 AD 3B 2F 22A8:25 DO 06 20 4A 24 4C F7 2430:4C ED FD AD 41 25 DO 01 25B8:F6 E5 E7 El F2 E4 ES A0 
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Pom's n° 30 





25C0:A0 
25C8:A0 
25D0:F2 
25D8:F2 
25E0:A0 
25E8:A0 
25F0:F5 
25F8:EC 
2600:E4 
2608:F5 
2610:20 
2618:26 
2620:2F 
2628:09 
2630:10 
2638:47 
2640:F0 
2648:8D 
2650:20 
2658:33 
2660:A7 
2668:8D 
2670:20 
2678:A9 
2680:97 
2688:C9 
2690:c1 
2698:20 
26A0:03 
26A8:D0 
26B0:0B 
26B8:2F 
26C0:27 
26C8:05 
26D0:17 
26D8:99 
26E0:60 
26E8:A9 
26F0:A0 
26F8:E9 
2700:A0 
2708:A0 
2710:F5 
2718:F2 
2720:A0 
2728:F2 
2730:2F 
2738: 04 
2740:26 
2748:39 
2750:F0 
2758:C9 
2760:C9 
2768:2E 
2770:0C 
2778:D8B 
2780:45 
2788:00 
2790:C9 
2798:F2 
27A0:A0 
27A8:8D 
27B0:F0 
27B8:A0 
27C0:CE 
27C8:EE 
27D0:28 
27D8:2F 
27E0:2F 
27E8:08 
27F0:F8 
27F8:89 
2800:F0 
2808:C9 
2810:20 
2818:FC 
2820;:61 
2828:A9 
2830:2D 
2838:2F 


AQ 
A0 
A0 
FB 
A0 
D0 
F2 
F4 
ES 
E1 
58 
90 
82 
20 
26 
QE 
04 
59 
96 
20 
20 
DO 
00 
8 
26 
98 
20 
39 
20 
07 
20 
A9 
90 
20 
8c 
00 
A9 
00 
Ed 
E5 
co 
BA 
A0 
A0 
E9 
A0 
AC 
91 
B1 
CA 
2C 
88 
8D 
c9 
c9 
80 
DO 
FO 
AF 
2A 
91 
00 
ES 
D0 
26 
26 
2F 
Fo 
A9 
81 
18 
D7 
03 
06 
43 
20 
co 
c3 
2F 
2F 


Fo 


2840:53 
2848:08 
2850:60 
2858:00 
2860:2F 
2868:29 
2870:35 
2878:20 
2880 :20 
2888;:56 
2890:90 
2899:2F 
28A0:55 
28A8:2F 
2880:03 
28B8:80 
28C0:2F 
28C8:DC 
28D0:64 
28D8:0F 
28E0:0A 
28E8:69 
28F0:BD 
28F8:E8 
2900:4A 
2908:FD 
2910:20 
2918:2C 
2920:ED 
2928 :69 
2930:AF 
2938:09 
2940:D0 
2948:68 
2950:58 
2958:20 
2960:20 
2968:C7 
2970:FC 
2978:1B 
2980:2F 
2988:20 
2990:D0 
2998:00 
29A0:26 
29A8:88 
2980:29 
2988:20 
29C0:29 
23C8:00 
29D0:43 
29D8:FC 
29E0:20 
28E8:17 
29F0:17 
29F8:00 
2A00:25 
2A08:89 
2A10:A9 
2A18:B9 
2A20:3C 
22428:01 
2A30:28 
2A38:29 
2A40:6B 
2A48:DA 
2A50:A9 
2A58:2i 
2A60:FD 
2A68:30 
2A70:00 
2A78:FA 
2A80:30 
2A88:21 
2A90:DA 
2A98:A9 
2AA0: 20 
2A88:2C 
2A80:F0 
2AB8:2A 


2AC0:20 
2AC6:22 
2AD0:A0 
2AD8:F0 
2AE0:F5 
2AE8:D5 
2AF0 : AA 
2AF8:98 
2B00:C0 
2B08:A8 
2810:39 
2B18:A0 
2B820:E0 
2B28:4C 
2B30:03 
2B38:F2 
2B40:E1 
2B48:F3 
2850:D6 
2B58:E3 
2B60:EE 
2B68:EC 
2B70:F5 
2H78:E7 
2B80:E9 
2B88:1°4 
2B90:F5 
2898:F4 
2BA0:F5 
2BA8:FB 
2BB0:E5 
2BB8:F9 
2BC0:A0 
28C8:EE 
2800:EC 
28D8:F5 
2BE0:CF 
2BE8:EFE 
2BF0:E1 
2B8F8:EE 
2C00:E9 
2C08:F8 
2C10:EA 
2C18:F2 
2C20:8D 
2c28:a9 
2C30:42 
2C38:3D 
2C40:4C 
2C48:6D 
2C50:F0 
2C58:3A 
2C60:2C 
2C68:B7 
2C70:8D 
2C78:2F 
2C80:2F 
2C88;0E 
2C90:8D 
2C938:AD 
2CA0:25 
2CA8 : BO 
2CB0:00 
2CB8:D2 
2cCc0:20 
2CC8:EF 
2CD0:E1 
2CD8:E3 
2CE0:F4 
2CE8:ES5 
2CF0:E5 
2CF8:F3 
2D00:E4 
2D08:E8 
2D10:BE 
2D18:A0 
2D20:E9 
2D28:EF 
2D30:;EC 
2D38:F8 


EE: 
E3 





2D40:EC 
2D48:A0 
2D50:EC 
2D58:E7 
2D60:15 
2D68:A0 
2D70:A0 
2D78:A0 
2D80:E5 
2D88 ; BA 
2D90:F2 
2D98:F2 
2DA0:D0 
2DA8:A0 
2D80:CC 
2DB8:A0 
2DCG:F2 
2DC8:EE 
2DD0:F2 
2DD8:C1 
2DE0:F5 
2DE8:EC 
2DF0:A0 
2DF8:AD 
2E00:A0 
2E08:F4 
2E10:A0 
2E18:E5 
2E20:E1 
2E28:F8 
2E30:8D 
2E38:DF 
2E40:DF 
2E48;DF 
2E50:DF 
2E58:A0 
2E60:20 
2E6#:0D 
2E70:20 
2E78:8D 
2E80:A9 
2E88:A0 
2E9D:A0 
2E98:B9 
2EA0:A0 
2EA8:F2 
2EB0:A0 
2EB8 : 8D 
2EC0:A0 
2EC8:A0 
2ED0:E5 
2ED8:F0 
2EE0:A0 
2EE8:A0 
2EF0:A0 
2EF8 : B5 
2F00:8D 
2F08:DF 
2F10:DF 
2F18:DF 
2F20 :DF 
2F28:00 
2F30:00 
2F38:00 
2F40:00 
2F48:00 
2F50:00 
2F58:30 
2F60:00 
2F68:00 
2F70:01 
2F78:A3 
2F80:BE 
2F88:AF° 
2F90:Aa 
2F98:FD 
2FA0:65 
2FA8:48 
2FB80:E9 
2FB8:75 
2FC0:00 


Dr 


EF 


ac 
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ProDOS S 
version 1.2 


Les versions de ProDOS fleurissent aussi rapidement que les 
versions de ‘Système sur le Macintosh. ProDOS 8 version 1.2 
présente des améliorations appréciables, particulièrement pour 
les possesseurs d'Apple IIGs. Si votre revue préférée n'est pas 
encore autorisée à mettre le fichier ProDOS (© oblige...) sur 
ses disquettes, les revendeurs agréés sont compétents pour le 
distribuer. 


Outre la correction de quelques bugs, la version 1.2 donne 
l'heure : l'horloge du GS est reconnue, GET_TIME fait 
maintenant son office normalement. Sur un //e, la carte horloge 
Thunderclock fonctionnera de 1986 à 1991 grâce à la nouvelle 
table de ProDOS. La version 1.1.1 se trouvait, elle, limitée à 
1987. 


Le ‘SmartPort’ est reconnu comme tel et peut piloter quatre 
volumes, contre deux avec les versions précédentes ; ils se 
verront affectés SS/D1, SS/D2, S2/D1 et S2,D2 (ceci n'est vrai 
que s'il n'y a pas de lecteurs connectés au port 2). Le cas se 
présente sur le IIGs équipé de deux Unidisks et une carte 
d'extension mémoire : on trouvera l'Unidiskl en SS/DI, 
l'Unidisk2 en S2/D2 et le disque virtuel /RAMS en SS/D2. 


L'ordre de recherche des volumes par ON_LINE a été modifié 
et, lors d'un démarrage par recherche des ports (option SCAN 
du tableau de bord), le lecteur 140Ko connecté au port 6 
passera après le SmartPort. 


Lors du ‘boot’, ProDOS 8 cherche un éventuel ‘driver’ du 
réseau AppleTalk avant de chercher le premier fichier 
‘système’. 


L'octet Machid en $BF98 ne permet toujours pas à un 
programme de lever l'ambiguïté : est-on sur un //e ou un IIGs ? 
Bien sûr, il est posibble de se décider en testant de nombreux 
points de la mémoire, à partir de $D742 la routine horloge 
écrite en 65816 par exemple. 


On trouve dans cette version des modifications moins visibles, 
telles le masquage des interruptions durant les appels au MLI, 
l'arrivée d'une routine de lecture de blocs simple d'accès. 


La volumineuse mise à jour de Beneath Apple ProDOS pour les 
versions 1.2 et 1.3 donne l'ensemble des modifications avec un 
détail des adresses et du fonctionnement de ProDOS ; elle est 
disponible par correspondance auprès de Quality Software 
($22,50 franco). VIF à Paris, distribue également les documen- 
tations techniques qui font défaut dans les emballages. 


G 





La crapule 


Enquête policière 
Jeu pour Macintosh 
512Ko et Plus 


Voici encore une création de 
Jean-Louis Le Breton (res- 
ponsable et principal auteur 
de Froggy Software) que 
nous avons beaucoup 
appréciée, bien que n'étant 
pas encore parvenus au bout 
de l'enquête à mener, et 
après être morts un nombre 
de fois respectable ! Nous 
tenons à souligner, outre la 
qualité du jeu, tant par le 
scénario que graphisme, 
trois innovations que l'on 
aimerait trouver plus 
fréquemment : 


° la disquette ne comporte 
pas de protection, la 
documentation expli- 
quant : “Ce jeu a été écrit 
en Turbo Pascal. Il n'est 
pas protégé contre la copie. 
Honte aux pirates. Vive 
Froggy."; 

e il est possible de 
s'exprimer en ‘petit nègre” 
(ouvrir porte), ou en bon 
français (j'ouvre la porte) ; 
une courbe de réussite 
vous indique à tout 
moment l'évolution du 
parcours. 


Enfin, vous avez la pos- 
sibilité de contacter Froggsy 
Software, en cas de déprime 
totale, pour obtenir la 
solution du jeu. Il y a peu 
d'éditeurs français ; celui-ci 
étant en outre de qualité, 
profitez-en ! 


Froggy Software 
34, avenue Henri Chevreau 
75020 Paris . 
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Apple est en passe de gagner son 
pari. Les Macintosh sont pris au 
sérieux et s'implantent dans les 
entreprises. L'annonce des Mac 
IT (qui devraient maintenant 
commencer à être disponibles au 
compte-gouttes) a définitivement 
ouvert les yeux de nombreux 
chefs d'entreprise qui ne juraient 
jusqu'ici que par Saint MS-DOS. 
L'étonnant, c'est que cette 
consécration du Macintosh se 
produit précisément au moment 
où IBM annonce une série de 
micro-ordinateurs qui représente 
probablement le standard des cinq 
prochaines années. 


Conséquence : Apple est 
désormais assuré d'être l'un des 
survivants de la guerre de la 
micro-informatique qui n'a pas 
fini de faire des victimes. Tout 
est-il donc rose dans le ciel de 
Cupeïtino ? Pas forcément. Car il 
faut bien reconnaître que, malgré 
son interface imitée par tous et 
malgré sa souris et ses fenêtres, 
le Macintosh manque encore 
d'outils de développement 
“intelligents” (et notamment des 
langages type Prolog ou 
VP-Expert) qui commencent à se 
multiplier sur les ordinateurs 
MS-DOS et permettront de créer 
les programmes de demain. Il ne 
faudrait pas que ce retard se 
prolonge. 

Or, voici précisément qu'Apple 
se dégage quelque peu de l'appui 
logistique donné aux logiciels. 
Une filiale a été créée, (au départ 
à 100%, puis qui deviendra dans 
un an indépendante) qui reprend 
la plupart des activités “soft” de la 
firme à la pomme. Ainsi, 
Appleworks, MacWrite, Mac- 
Project, MacDraw, MacTenninal, 
etc. ne porteront plus éternel- 
lement le logo d'Apple. 
Officiellement, il s'agit de mettre 
tous les développeurs sur un 
même pied d'égalité pour les 
encourager à mettre au point de 
nouveaux logiciels. Selon 
certains, il s'agit aussi de 
contrebalancer la position 


dominante de Microsoft, trop liée 
à IBM. Reste à voir comment se 
traduira cette nouvelle politique 
dans les faits. I] est parallèlement 
intéressant de noter que cette 
décision avait été anticipée par 
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Micro-informations 
Jean-Michel Gourévitch 


Guy Kawasaki, “évangéliste du 
logiciel” chez Apple, et 
notamment chargé de veiller à ce 
que tous les logiciels respectent 
bien l'interface Macintosh. 
Kawasaki a quitté Apple voici 
quelques mois pour diriger 
ACIUS. Derrière cette raison 
sociale aux consonnances latines 
se cache tout simplement la filiale 
américaine d'ACI, qui va vendre 
aux Etats-Unis un logiciel dont le 
nom de code a longtemps été 
“Silver surfer”, mais qui sera 
finalement lancé sous le nom de 
“Fourth Dimension”. Eh oui, il 
s'agit bien de notre 4D... 


Apple se retirerait-il complè- 
tement du logiciel ? Pas vraiment. 
Car, elle gardera dans son verger 
plusieurs secteurs. D'abord les 
langages de programmation 
précédemment évoqués, et pour 
lesquels il est temps de mettre les 
bouchées doubles. Ensuite les 
systèmes. Et notamment Unix. 
La version A/UX, qui sera 
proposée sur Macintosh IT dès 
septembre (à condition de rajouter 
au micro une unité de gestion de 
la mémoire par page basée sur le 
coprocesseur Motorola 68851) 
offrira des possibilités de 
communication avancée 
(connexion possible à Ethernet, 
Appletalk et système de 
messagerie standard Unix) tout 
en ayant accès à la boîte à outils 
du Mac, ce qui permettra donc de 
développer des applications Unix 
ayant l'aspect classique des 
applications Macintosh. 
Nombreux débouchés possibles 
dans l'enseignement supérieur et 
le domaine technique. Et 
fonctionnement en multitâche.… 


Le multitâche est encore à 
l'honneur dans le domaine des 
systèmes. Car, bien sûr, Apple se 
garde sous le coude tous les 
systèmes, finder, etc. Et voici 
précisément qu'on travaille à 
Cupertino sur un nouveau 
système d'exploitation dont le 
nom de code est encore 
“Juggler”. Et ce système destiné 


aux Mac Il, serait (à terne, car 
les premières versions se 
contenteraient de fonctionner par 
interruptions) multitâche, utilisant 
lui aussi le coprocesseur 68851. 
Se présentant comme le célèbre 
“switcher”, il pennettrait de faire 
tourner simultanément plusieurs 
programmes, d'effectuer des 
impressions en tâche de fond, 
tout en faisant fonctionner un 
autre logiciel. Bref, un rêve sur 
micro. Quant au “Servant” 
développé par Andy Henzfeld, il 
ne semble finalement pas 
qu'Apple l'ait retenu. Hertzfeld 
pourrait encore le perfectionner et 
le vendre directement à tous ceux 
qui n'ont encore que des 
vulgaires Macintosh ou 
Macintosh Plus (ce qui constitue 
cependant encore la quasi-totalité 
des utilisateurs de Mac..….). 


Chez Apple, on ne cesse de 
penser à l'avenir. Ce rôle de 
visionnaire semble particuliè- 
rement dévolu à Jean-Louis 
Gassée. Des propos qu'il a tenu 
au cours des derniers mois, on 
peut retenir : l'importance des 
RNIS (ces nouveaux réseaux de 
transmission qui permettront de 
transmettre aussi bien la voix que 
les données à des vitesses quatre 
fois supérieures à celles 
d'aujourd'hui) et des nouveaux 
moyens de stockages. 


La disquette de 800Ko ne tardera 
pas à devenir aussi obsolète que 
celle de 143K0o de l'Apple //. Un 
coup d'œil aux nouveaux médias 
permet de juger la rapidité de 
l'évolution les disquettes 
développées par Bernouilli 
permettent déjà de stocker 20 
Méga-octets, soit l'équivalent 
d'un volumineux disque dur. 
Elles sont utilisées par la firme 
Bering dans son système Totem. 
Et la firme américaine Jasmine 
(qui avait déjà présenté un disque 
dur à 550 dollars, soit moins de 
4000,00 F), utilise des disquettes 
Kodak DTC de 20 Mégas. 

Jean-Louis Gassée a également 
laissé entendre que Bill Atlenson, 
l'auteur de MacPaint, travaillait à 








un produit révolutionnaire 
utilisant une interface encore plus 
conviviale pour remplacer le 
clavier. Avec la mise sur le 
marché du II6s et du Macintosh 
IT, la nécessité d'une impression 
en couleurs est devenue plus 
aiguë. On travaille donc chez 
Apple d'arrache-pied à la mise au 
point d'une véritable imprimante 
couleurs (utilisant la technologie 
du jet d'encre ou celle du laser) à 
un prix restant abordable. Pas si 
facile. 


Enfin, il va falloir assurer l'avenir 
du Macintosh IL Jean-Louis 
Gassée a annoncée qu'Apple 
allait publier les spécifications du 
Nubus, permettant ainsi aux 
fabricants de cartes et aux 
développeurs de construire des 
cartes intelligentes contenant des 
ROM communiquant directement 
entre elles sans recours au 
processeur. Le Mac IT a d'ailleurs 
déclenché une frénésie 
d'annonces de programmes et de 
cartes d'extension. 


Le Macintosh II 
au programme 


BrainPower, l'auteur de 
Statview — l'un des meilleurs 
programmes de statistiques pour 
le Mac — a annoncé une nouvelle 
version pour le II utilisant le 
coprocesseur 6881, l'accélérateur 
de virgulle flottante, et capable 
d'adresser 2 Gigaoctets de 
mémoire. Ce programme 
permettant des régressions à 
variables multiples, etc. sera 
vendu dès juillet pour 450 
dollars. 


Côté cartes d'extensions, c'est la 
surnatalité. Supermac Tech- 
nology, propose des cartes 
graphiques (1365 x 1024 points 
en monochrome et 1024 x 768 en 
couleurs). Tout comme AST 
Research, qui a développé des 
cartes d'extension mémoire, des 
cartes sorties, et la carte 386 
permettant une émulation 
MS-DOS. Sigma Designs, a 
développé Laserview, un 
moniteur monochrome et son 
adaptateur permettant une 
résolution de (1664 x 1200 
points) vendus 2300 dollars. 


Cette carte fonctionne également 
sur le Mac SE. Et ce n'est qu'un 
début. Au programme, pour très 
bientôt : d'autres cartes avec 
co-processeurs pour faire 
fonctionner des programmes 
MS-DOS, un déluge de cartes 
vidéo, communication ou 
mémoire, des systèmes 
d'acquisition des données, ou de 
contrôles de processus pour 
environnements scientifiques ou 
de production en usines, des 
cartes musicales, etc. 


Macintosh Plus, 
toujours du 
craphisme 


Sur le front du Macintosh Plus, la 
source des nouveautés ne se tarit 
pas encore, Voici d'abord, 
importé chez nous par 
P-Ingéniérie, l'Adobe Illus- 
trator d'Adobe (créateur du 
langage PostScript). Un véritable 
outil de création graphique, bien 
sûr basé sur le langage de 
description graphique PostScript, 
qui définit les images à l'aide de 
droites et de courbes précises et 
non de points. On peut utiliser 
comme base de travail une 
photographie numérisée, un 
croquis ou un document 
MacPaint, et ensuite la 
transformer, la reprendre, 
l'enrichir, ajouter des légendes, 
pivoter, agrandir, réfléchir, 
déformer certains détails. Le 
résultat final peut être imprimé 
sur une imprimante Laserwriter, 
ou une Linotronic 300 (définition 
de 2540 points par pouce). Pour 
les tirages couleurs, Adobe 
Illustrator imprime séparément les 
quatre films couleurs. À côté de 
ce véritable programme graphique 
professionnel, MacPaint a 
soudain l'air d'un jouet pour 
élèves. de maternelle. Si ce 
logiciel vous intéresse, Pom’s 
peut vous faire parvenir contre 
80,00 F, une disquette de 
démonstration en anglais qui en 
dit long sur les possibilités de ce 
programme vendu 5408 F HT. 

Laserware, a d'autre part 
développé aux Etats-Unis un 
autre programme graphique 
générant automatiquement du 


code PostScript et produisant des 
films séparés pour les couleurs : 
c'est Laserpaint, composé d'un 
module de dessin, d'un module 
de peinture, et d'un modèle de 
texte permettant le crénage, etc. 
Prix 495 dollars. 


Toujours de la 
PAO... 


Sur le front de la publication 
assistée par ordinateur, on ne 
désarme pas. Tandis que 
PageMaker sort sa version 2.0, 
voici qu'apparaît Scoop, de 
Target Software, un logiciel 
de mise en page (jadis connu 
sous le nom de Solo), qui promet 
de ne pas limiter ses utilisateurs 
(comme ceux de Page Maker) à 
des formats rigides et à des 
images rectangulaires, le texte 
s'enroulant automatiquement 
autour d'images même 
irrégulières. On peut aussi créer 
simultantément les textes et les 
graphiques. 

Voici encore Xpress de Quark, 
riche de nombreuses possibilités 
typographiques, de crénage de 
précision, au 1/100e de la largeur 
d'un caractère, d'habillage 
d'illustrations irrégulières, etc. 
Bref, un logiciel dont on reparlera 
à coup sûr. 

À remarquer, encore la version 
III de MacPublisher, de 


Boston Publishing Systems, 
que Lettraset n'a finalement pas 
adoptée, lui préférant Ready Set 
Go 3.0. Cette nouvelle version 
considérablement améliorée, et 
fonctionnant en couleurs sur le 
Macintosh II possède des niveaux 
de gris réglables par incréments 
de 10%, des possibilités de 
rotations, une  césure 
automatique, etc. 

Enfin, Office Talk est à la fois 
un système de communication et 
de publication, compatible 
MS-DOS et Macintosh, qui 
permet de s'échanger des 
fichiers, de les mettre en pages, 
d'expédier du courrier 
électronique et d'imprimer les 
documents sur Linotype. Un 
système dont nous reparlerons en 
détails. 


EEE 
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Amélioration de 
textes 


Voici l'Orthogiciel Plus, la 
dernière mouture du correcteur 
orthographique de Larousse. À 
remarquer que, Contrairement aux 
versions précédentes, celle-ci 
fonctionne avec MacWrite 4.5, 
ou n'importe quel fichier texte. 
On peut se constituer des 
dictionnaires particuliers (c'est 
même fortement conseillé car, en 
examinant un texte, le programme 
s'arrête sur tous les noms propres 
ou termes qu'il ne connaît pas). 
Le fonctionnement est impres- 
sionnant et impeccable. Un outil 
indispensable à tous ceux qui 
veulent éviter les fautes 
d'orthographe. Un seul regret : 
que ce programme ne fonctionne 
pas au moyen d'un accessoire de 
bureau, ce qui permettrait de lui 
faire corriger un texte sans avoir à 
quitter le traitement de texte 
utilisé. Enfin, il reste toujours la 
possibilité de le faire fonctionner 
sous Switcher… 


Bootware Software Com- 
pany, a créé Personal 
Résumé-Writer, qui aide à 
écrire... non pas des résumés 
(gare au contre-sens), mais des 
curriculum vitæ. On tape les 
informations dans des fenêtres 
pré-définies, et le programme met 
le document en page 
conformément aux spécifications 
qui ont été précisées. Prix : 30 
dollars pour un seul nom et 595 
dollars pour un nombre illimité de 
noms (pour les professionnels du 
CV ou du recrutement). 

Powerpoint de Forethought 





Inc. permet, lui, comme More, 
de réaliser des diagrammes pour 
présentations d'organigrammes, 
cartes, etc. Les graphiques et 
textes peuvent être importés 
d'autres programmes Macintosh, 
les écrans sont imprimés sur 
Laserwriter. Prix : 395 dollars. 


Logiciels 
spécialisés 


Pour les actions, The Right 
time de TBSP est un logiciel 
graphique d'aide à la décision 
boursière donnant des indications 
sur le moment d'achat ou de 
vente. Prix : 399 dollars. Est-ce 
le bon moment pour l'acheter ? 


Ciné Mac 


Beck-Tech a créé Mac- 
Movies, un programme 
spectaculaire, permettant d'ani- 
mer des images, plus simple que 
VideoWorks et vendu 99 dollars. 
Mac Movies est composé de 
quatre modules, permettant de 
visualiser une série de documents 
MacPaint, de comprimer les 
documents et d'enchaïîner les 
documents ensemble. On peut les 
voir sous forme de films et relier 
des films les uns aux autres. À 
noter que le Mac commence à 
envahir les studios d'Hollywood. 
On trouve ainsi des logiciels 
permettant comme ScriptWriter 
d'écrire des scripts sur deux 
colonnes (avec numération 
automatique des scènes, 
placement des dialogues, etc) et 
Story Boarder, un programme 
de dessin permettant de 


Universal File Conversion 


De nombreux lecteurs cherchent vainement ce 

programme chez les revendeurs français. Il est 
. possible de le commander directement aux 
Etats-Unis ($44,95 franco, indiquer le numéro de 


carte VISA) auprès de : 

Quality SoftWare, 21601 Marilla Street, 
Chatsworth, California 91311. 
Rappelons que ce programme permet de convertir 
les fichiers d'un système d'exploitation à l'autre : 
DOS 3.3, ProDOS /SOS, CP/M et Pascal. 
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programmer les séquences d'un 
film avec les effets de transitions, 
etc: 


Des utilitaires 


Ce sont les programmes 
accessoires qui rendent la vie plus 
facile. Les utilisateurs de Mac les 
connaissent bien. Voici d'abord 
des templates, ces formes 
prédéfinies qu'il ne reste plus 
qu'à remplir, ou ces programmes 
déjà mâchés. Dans cette dernière 
catégorie, TBI a réalisé avec 
l'aide de 4D un programme de 
gestion agricole. Dans la 
première, Aldus, l'éditeur de 
PageMaker, distribué en France 
par ISE Cegos, a étudié un 


Portfolio. Il s'agit de maquettes 
prédéfinies pour des mises en 
page avec PageMaker. I] ne reste 
plus qu'à insérer son texte ou ses 
images dans une maquette qui a 
été dessinée par des “pros”. Bien 
commode pour tous ceux qui 
doivent faire de l'édition 
électronique mais ne connaissent 
pas forcément l'art de la mise en 
page. 

L'impression est aussi un 
domaine de choix pour les 
utilitaires. Softstyle en est 
devenu un spécialiste. Il propose 
ainsi Laserstart Plus, 
permettant pour 145 dollars 
d'utiliser avec le Mac une 
imprimante HP Laserjet, Canon 
LBP 8A, etc. Quant à 
Colormate, c'est un logiciel qui 
permet d'imprimer en couleurs 
des documents du Mac sur 
l'imprimante ImageWriter II. 


Un autre système plus onéreux, 
Ps Jet de Laser Connection 
permet pour 3000 dollars de 
transformer une imprimante Laser 
HP Laser jet en Laserwriter. Seul 
problème : l'ensemble revient 
alors plus cher que l'imprimante 
d'Apple. 


Quant à KroyKolor de Kroy 
Sign Systems, c'est un 
appareil permettant de colorier un 
document. On l'imprime, puis on 
le glisse dans une feuille de film 
transfert, on le place dans un 
appareil et le document se colorie. 
On peut aussi réaliser des 
documents en plusieurs couleurs, 


en découpant des morceaux de 
films transfert. La machine coûte 
995 dollars et les films 50 cents la 
page. 

À noter enfin des programmes 
qui peuvent rendre bien des 
services : la version 2 de My 
Disk Labeler de Williams & 
Macias imprime des étiquettes 
pour les disquettes éventuel- 
lement en couleurs ou sur 
Laserwriter en mêlant le 
graphique au texte. Prix : 45 
dollars. 

Et DiskEnsure et Disk- 
Express de ALSoft permettent 
de réaliser des copies de 
sauvegarde d'un disque dur, et de 
réorganiser les fichiers pour 
accélérer les accès. Pour 40 
dollars chacun. 


Côté matériel 


Remarquable le disque dur 
DataFrame 40XP de 
SuperMac. C'est tout 
simplement le plus rapide, à ce 
jour, des disques dur pour le 
Mac. Un 40 mégas pour 1980 
dollars. Puissant le Turbo Max 
de Mac Memory, un accélé- 
rateur pour le MacPlus qui le fait 
fonctionner trois fois plus vite 
avec un coprocesseur 68881 et 
1,5 Megas de mémoire pour 1300 
dollars. 

Versatile, le coprocesseur 
MS-DOS pour MacPlus de 
Dayna Mac, le créateur du 
célèbre MacCharlie, Pour 795 
dollars, on a un lecteur de 
disquettes de 360K0, une carte 
avec 256Ko de RAM extensible, 
une copie de MS-DOS. La carte 
se branche dans un des ports 
série et permet de faire 
fonctionner les logiciels MS-DOS 
dans une fenêtre. Ingénieux, 
l'accélérateur de Peak 
Systems, permettant au Mac 
SE, grâce à une carte d'utiliser le 
processeur 68020 du Mac II. 
Même chose pour le Prodigy 
SE de Levco. Sensible, le 
Data Acquisition de GW 
Instruments, un boîtier qui 
permet de nourrir le Macintosh de 
données recueillies à l'extérieur, 
et de le transformer en 
analyseur de 


oscilloscope, 
spectre, etc. 


Et l'Apple // 
alors ? 


Revoici des programmes pour ce 
bon vieil Apple //. Sa version Gs 
lui a décidément donné un coup 
de jeune. Word Perfect lui a 
ainsi transposé son traitement de 
textes. Bank Street Writer de 
Scolastic Software, qui fut un 
des premiers traitements de textes 
faciles en est à sa version IT et 
comprend un dictionnaire de 
correction (en anglais seulement 
hélas). Prix : 100 dollars. 


Du graphisme 


Paintworks Plus d'Acti- 
vision est un programme de 
dessin doté d'une fonction 
d'animation pour réaliser des 
dessins animés. La brosse du 
pinceau dispose ainsi de quelque 
32 formes, on peut utiliser 16 
couleurs sur une seule image, 
choisies dans une palette de 
4096, etc. Prix : 80 dollars. 
TopDraw de Styleware est un 
mélange de MacDraw pour le 
Mac et de MacPaint, avec les 
mêmes possibilités de couleurs. 


Du son 


Music Studio d'Activision 
permet de bénéficier des capacités 
sonores du Gs. On peut composer 
des partitions, utiliser 45 
instruments prédéfinis ou en créer 
de nouveaux, le tout sur 15 
canaux. Prix : 80 dollars. 


Des sciences 


Le Science Toolkit de 
Broderbund Software corres- 
pond à la boîte de chimie qu'on 
offrait jadis aux enfants. 
Différence, tout se passe sur 
l'écran, mais avec des 
instruments de mesure qui 
fournissent, par exemple, la 
température à l'ordinateur. On 
doit disposer d'un module maître. 
Ensuite il y a deux modules, l'un 
consacré à la vitesse et à l'action, 
le second à l'activité séismique. 
Prix de chacun des deux 
modules : 40 dollars. 


Du matériel 


Il n'y avait pas de raison pour 
que l'Apple // ne bénéficie pas 
d'un numériseur d'images 
comme le Mac. À l'image du 
Thunderscan, le Scannit de 
JED Design s'installe à la place 
du ruban de l'imprimante 
Imagewriter et permet de 
numériser une image. Prix : 219 
dollars. Pas de raisons non plus 
pour que l'Apple // ne puisse pas 
lire les fichiers MS-Dos. C'est 
chose faite avec la carte the 
Envoy d'Asky. Ce contrôleur 
permet d'écrire et de lire des 
disquettes au format MS-DOS. À 
condition, bien sûr, de lui relier 
un lecteur de disquettes 
compatible. Prix du contrôleur : 
180 dollars. La firme travaille à 
des utilitaires permettant de 
convertir les données de Lotus en 
ProDOS. Pas de raisons non plus 
qu'on ne puise utiliser l'Apple // 
enusine. On le sait notamment en 
France chez Peugeot. Isaac, de 
Cyborg, est un boîtier 
d'acquisitions de données 
permettant de contrôler des 
processus, de transformer 
l'Apple en spectroscope, 
chromatographe, etc. 


Et il y avait encore moins de 
raisons de ne pas transformer 
l'Apple IIcs en un instrument 
stéréo haute fidélité. C'est fait 
avec la carte Supersonic et 
Supersonic Digitizer de 
MDldeas. On branche cette carte 
sur des enceintes acoustiques, et 
on obtient un son stéréo. Prix : 
60 dollars et 40 dollars pour le 
numériseur. La même firme 
propose une carte d'extension de 
mémoire jusqu'à 8 Mégas 
permettant d'utiliser les 
programmes stockés en RAM et 
préservés par une pile 
rechargeable. Prix : 350 dollars 
pour la carte d'un méga et 180 
dollars pour la carte ESP 
rampack. Dans le même esprit, 
voici la carte Speedisk de Thot 
Informatique : compatible ][+, 
Ile, IIGS, il s'agit d'un disque 
virtuel à mémoire permanente 
sauvegardée jusqu'à deux mois 
grâce à sa pile. De 384Ko à 1 
Méga, les transferts se font à 











5S0Ko à la seconde sur le Gs pour 
un prix allant de 4 à 6000,00 F 
selon capacité. 


Adresses 


Bering Industries 280 
Technology Circle Scotts Valley 
CA 95066 


Jasmine Computer Systems 
555 De Haro St, San Francisco 
CA 94107 


BrainPower, 24009 Ventrura 
Blvd, Suite 250, Calabasas, CA 
91302 


Supermac Technology, 950 
N Rengstorff Ave. Mountain 
View, CA 94043 

AST Research, 2121 Alton 
Ave Irvine, CA 92714 

Sigma Designs, 46501 
Landing Parkway, Fremont CA 
94538 

Dayna Communications, 50 
S. Main St, Salt Lake City UT 
84144 

P-Ingéniérie, 226 Bd Raspail, 
75014 Paris, Tel. : 43 21 93 36 


Laserware, PO Box 668, San 
Rafael, CA 94915 

Target Software, 14206 SW 
136th St, Miami, FL 33186 
Boston Publishing Systems, 
1260 Boyilston St Boston MA 
02215 

Bootware Software Compa- 
ny, 5856 Parkmor Rd Calabasas 
CA 91302 

Forethought Inc. 250 
Sobrante Way, Sunnyvale, CA 
94086 

TBSP, 8821 Alcott St, Los 
Angeles, CA 90035 

Beck Tech, PO Box 5027 
Berkeley CA 94705 

Softstyle 7192 Kalanianaole 
Hwy Suite 205 Honolulu, Hawaï 
96825 

Laser Connection, PO Box 
850296 Mobile AL 36685 

Kroy Sign Systems 7560 East 
Redfield Road Scottsdale Arizona 
85260 

Williams & Macias PO Box 
19206 Spokane WA 99219 


ALSoft PO Box 927 Spring Tx 
77383 


Mac Memory 2480 North First 
Street, San Jose, CA 95131 
Peak Systems 1201 Spyglass 
Austin TX 78746 

Levco 6161 Lusk Blvd Suite C 
203 San Diego CA 92121 

GW Instruments, PO Box 
2145 Cambridge MA 02141 
Activision PO Box 7287 
Mountain View CA 94039 


Styleware 5250 Gulfton Suite 
2E Houston Texas 77081 


Broderbund Software 17 
Paul Drive San Rafael C À 94903 


JED Design 3300 Central Ave 
SE Canton OH 44707 


Asky, 4320 Stevens Creek Bivd 
Suite 287 San Jose CA 95129 
Cyborg 55 Chapel St Newton, 
MA 02158 

MDldeas, 1163 Triton Drive 
Foster City CA 94404 
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Les disquettes Mac B à Mac 1 


Ces disquettes contiennent des programmes ou documents ‘domaine public’ ou ‘Freeware’ : elles 
sont le résultat d'une sélection coinjointe de Pom's et du Club Apple parmi les 25 disquettes 
initialement proposées par le Club Apple. Cette réduction de 25 disquettes en 8 correspond à une 
élimination de nombreux programmes qui soit ne fonctionnaient pas sur Macintosh Plus, soit 
présentaient un intérêt pratique réduit. Vous trouverez ci-dessous un ‘catalogue’ des disquettes 
avec, pour chaque article, une brève description. 


ww Disquette Mac B - Polices de caractères 


Andover 12 — APL 12 — ASCII 12 — Bookman* 14/24 — Boxes 9/10/12 — Broadway 24 — Century 18/24 
Chancery 24 — Chicago by night 12 — Circus 12/18/24/36 — Cirth 48 — Cursive 12 — Cyril 12 
East Orange 12 — Elite 12 — Elvish 12 — Eon 12 — Exeter 13 — Greek 9/10/12/14/18/24 
Hollywood 12/24 — Hood River 12 — Lineal 18 —- Mars 18 — London 18/36 — Long Island 12/18. 


æ Disquette Mac C - Polices de caractères 


N Helvetica Narrow* 14 — Ophir 12/24 -— Palo Alto 9/12/18/24/36 - Park Avenue 18 
Philly 9/10/12/18/20/24 — Pica 12 — Princeton 12/24 — Ravenna 12/24 — Runes 12/24 - Santiago 12 
Silicon Valley 12 — Stencil 12/24 — Symbol* 9/12/18/24 — Tiny 12 — Toronto fixe 9 — Vectors 9/12 
Zapf Dingbats* 18. 


* les polices marquées d'une étoile ne sont pas celles de la ‘LaserWriter' portant les mêmes noms. 


« Disquette Mac D - Accessoires de bureau 


ArtThief pour visualiser des images MacPaint ou FullPaint, copier des images plus grandes 
que les fenêtres de ces applications. tout ceci sans quitter l'application en cours. 


Ascii.DA pour connaître immédiatement le code ASCII d'un caractère, en décimal, en 
hexadécimal et en octal. 


FKEY à la fois accessoire et application. Il permet l'installation de ‘Mini-programmes’ 
semblables, dans l'esprit, aux accessoires de bureau, mais accessibles depuis une 
touche de fonction tout comme ‘Commande-l’ provoque l'éjection de la disquette du 
lecteur interne, ou ‘Commande-3’ la copie de l'écran sur disquette.Voici la liste des 
fonctions fournies sur la disquette Mac D : 


ASCins pour saisir n'importe quel caractère, même s'il n'est pas accessible 
directement au clavier. 

ASClip idém, mais le caractère est placé dans le ‘presse-papiers’. 

BigCursor la taille des curseurs est doublée. 

Clippy place dans k ‘presse-papiers’ les caractères spéciaux. 

ComKey pour lire la zone ‘commentaire’ des fichiers. Ne fonctionne pas en HFS. 

DA Key pour essayer un accessoire sans l'installer dans le menu é. 

FadeKe;y pour ‘éteindre’ momentanément l'écran. 


PanicKey le Mac se défoule à votre place ! 
ScreenToClip place la partie de l'écran de votre choix dans le ‘presse-papiers”. 


SetSound pour régler le niveau sonore. 
ShowKey ‘catalogue’ des touches utilisées et de leurs fonctions. 
Sleep proche de FadeKey mais avec une 6. 


PoorBoy's création et installation de macro-instructions. 

Dec Maker pour les décideurs en panne d'inspiration ; cet accessoire ludique prend les 
décisions à leur place ! 

File Tools permet diverses manipulations de fichiers. 

Maxwell un jeu d'adresse et de patience. 

TheBox à la fois montre, chronomètre, et indicateur de mémoire libre. 
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«æ Disquette Mac E - Applications 


AMAZING jeu de labyrinthe, avec plusieurs niveaux de difficulté. 
Analog Clock horloge ‘à aiguilles’. 
Backgammon célèbre jeu de société, très bien présenté. 


Banner impression de banderoles sur papier ‘listing”. 

Bricks jeu ‘casse briques’. 

Canfiels jeu de carte. 

DiskUtil utilitaire pour disquettes. Contrôle, etc. 

Fast Formatter Formatage rapide de disquettes 

MouliMac Conversion de fichiers au format SYLK (Excel, Multiplan, 4èM® Dimension) en 


format ‘texte’. 


wæ Disquette Mac F - Applications 


DataFlow programme sophistiqué pour le dessin d'algorythmes. 
Reversi jeu de reflexion. 

yapu utilitaire pour ImageWriter. 

Enigma superbe jeu du type Rubik cube, mais avec deux cercles croisés. 


F/DA Sorter tri alphabétique des articles dans les menus. 
File Diddler manipulation de fichiers ‘texte’. Ajoute ou enlève certains caractères de 


contrôle. 
HexPuzzle jeu sur une valeur hexadécimale. 
Iago jeu de reflexion. 





æ Disquette Mac G - Applications 


ResEdit éditeur de ressources. 

Icon Editor éditeur d'icônes et curseurs. 

JClock installe l'heure dans la barre de menu. Elle y reste même si vous changez 
d'application. 

Life jeu de la vie extrêmement rapide écrit par l'auteur de MacPaint. 


Missile Command jeu d'action. 





Disquette Mac H - Applications 


MacBILLBOARD éditeur d'affiches. Permet l'agrandissement et l'impression d'images 
MacPaint jusqu'à 32 fois. 


MacWait remplace le curseur en forme de montre par une montre animée. 
MenuEdit éditeur de menus. 

Packit compacteur de fichiers 

Social Climber jeu d'adresse. 

Solitaire jeu de reflexion. 

WaveMaker éditeur de sons évolués. 


ww Disquette Mac I - Applications 


Snooker jeu de billard très réaliste et comportant de nombreuses options : billard 
français, américain, nombre de billes, angle d'attaque variable, etc. 

SystemVersion donne le numéro de version et la date de création du fichier système 
courant. 


Adventure of Snake jeu d'adresse. 
ThipkTank to WP conversion de fichiers ThinkTank en fichiers ‘texte’ utilisable depuis un 
logiciel de traitement de textes. 
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Disquettes Apple J[ Macintosh Accompagnement 
EP.E. 5.1 - 140Ko 200,00F [3  MacRaccourci 20000 F [] A ] 140K0 1/2 60,00 F [] 
E.P.E. 5.1 - 800Ko 20000 F [] MacAstuces 200,00 F [] AÏ[140Ko3 60,00F © 
Echange E.P.E. 5.0/5.1 -140Ko 80,00 F [2 Mac 'A’ 80,00F [] AÏJ[140Ko4 60,00F 
Echange E.P.E. 5.0/5.1 - 800Ko 80,00 F [] Mac ‘B' 80,00 F CL] A] 140Ko5 60,00F ©] 
Pascal - 140Ko 80,00 F [] Mac ‘C' 80,00 F [] A 140Ko6 60,00F [1 
Max (moniteur étendu) - 140Ko 150,00 F Mac ‘0’ 80,00 F [] A][140Ko7 60,00 F [1 
Dominos - 140Ko 80,00 F [] Mac 'E’ 80,00 F [] A} 140Ko8 60,00F [] 
COGO - 140Ko 20000F [1 Mac F 80,00 F [] AJ 140Ko9 60,00 F [] 
Ludologic - 140Ko 80,00 F [1 Mac ‘G' 80,00 F E] AJ 140Ko 10 60,00F L] 
Ordico - 140Ko 200,00 F [1 Mac ‘H' 80,00 F [1  A}[140Ko 11 60,00F [] 
BananaSoft - 40Ko 200,00 F CL Mac Ÿ 80,00 F D AJ 140Ko12 60,00F CO 
A] 140Ko13 60,00F [] 
A] ‘40Ko14 60,00 F ©] 
A ][ 140Ko 15 60,00 F [] 
Recueils Pom's Mac 14/15/16  150,00F ©] A ] 140Ko 16 60,00 F [] 
Mac 17 80,00 F C1 A] t40Ko 17 6000F D 
Numéro 1 (Revues 1 à 4) 140,00 F [1 Mac 18 80,00 F CO] A] 140Ko 18 60,00F [] 
Disquettes A ][ t40Ko 1à 4 200,00F C] Mac 19 80,00 F [] A 1 ‘40Ko 19 60,00F [1 
Numéro 2 {Revues 5 à 8) 140,00 F Mac 20 80,00 F [] A] 140Ko 20 60,00F [] 
Disquettes A ]J[ t40Ko5à8 20000F [1  Mac21 80,00F ©] AJ[140Ko21 60,00F [] 
Numéro 3 (Revues 9 à 12) 140,00 F [1  Mac22 80,00 F C] A][140Ko22 6000F[] 
Disquettes A ][ 140Ko 9 à 12 20000F [] Mac23 80,00 F [J AJ[140Ko23 60,00F [] 
Mac 24 80,00 F [J AJ 140Ko24 60,00F [] 
reliures toilées Mac 25 80,00 F [1  AJ[140Ko25 60,00F [] 
pour 6 numéros, soit un an 60,00 F [] Mac 26 80,00 F [1 AJ 140Ko26 60,00F D 
Mac 27 80,00F ©] AJ[‘40Ko27 6000F [] 
Mac 28 8000F [1 AJ 40Ko28 60,00F D 
Apple ][ 800Ko 35 numéro29  8000F []  Mac29 80,00 F [] A 140Ko29 60,00 F [] 
Apple ][ 800Ko 3'5 numéro 30  80,00F [1 Mac 30 80,00F [1 AJ140Ko30 6000F [1 
Revue n° 4 3500F Ü Revue n° 7 3500F © Revue n° 8 35,00F Ü 
Revue n° 10 40,00F [] Revue n° 11 4000F [] Revue n° 12 40,00F © 
Revuen° 13  40,00F [] Revue n° 14 4000F ©] Revue n° 15 40,00F © 
Revue n° 16 40,00F [] Revue n° 17 4000F ©] Revue n° 18 4000F [1 
Revue n° 19 4000F [] Revue n° 20 40,00 F C] Revue n° 21 4000F [] 
Revue n°22  40,00F [1 Revue n° 23 4000F [] Revuen° 24  4000F [] 
Revue n° 25 40,00 F © Revue n° 26 40,00F [] Revuen° 27  45,00F [] 
Revue n°28  45,00F [] Revue n° 29 45,00F © Revue n° 30  45,00F [C1] 
Abonnements pour six numéros à partir du 4-7 
la revue seule 22500F D 
la revue et les disquettes Apple ][ 140Ko — 5° 1/4 525007 D) 
ja revue et les disquettes Apple ][ 800Ko —3' 1/2 62500F D 
la revue el les disquettes Macintosh 625,00F D 
la revue, les disquettes Apple ][ 140Ko - 5 1/4 et les disquettes Macintosh 92500F © 
la revue, les disquettes Apple ][ 800Ko - 3° 1/2 et les disquettes Macintosh 1025,00F D 
* pour les envois par avion, ajoutez t5 F par numéro evou par disquette soit, par exemple, 90 F pour un abonnement avec disquettes. 
€ 
Envoyez ce bon et votre règlement à : Éditions ME V - 12,rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : Æ 
Règlement par: Carte Bleue/VISA [1 & Chèque bancaire [1  Chèquepostal D] Mandat [ 





numéro de la carte 


Montant k F 


Signature : 











date d'expiration 








Câble-interface de communication Apple/Minitel 


Cette liaison - décrite dans les numéros 27 et 28 de Pom's - est indispensable pour faire fonctionner les programmes suivant : 


+ MinBas pour Apple ]{+, //e, /e+, {/cet//GS* : programme permetlant l'enregistement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies d'écran du Minitel, et aussi l'envoide textes ou messages sur un serveur, ces 
messages ébant préparés à l'avance avec n'importe quel programme de traitement de textes. Programme publié dans le numéro 27 
de Pom's. 

+ Minitel/1 pour Macintosh : programme identique à MinBas pour Apple ][, avec en plus un mini-éditeur de texte pour la préparation 
et le stockage des messages sans sortir du programme. Programme publié dansle numéro 27 de Pom's. 

*_interPom's pour Apple ]|+, f/e, flex, lc et /IGS* : programme de téléchargement entre Apple }{ et/ou Apple ]{ et Macintosh. Ce 
logiciel autorise la tansmission de n'importe quel type de fichier (système, texte, binaire, Basic.) en utilisant le Modem du Minitel. 
Programme publié dans le numéro 28 de Pom's. 

+ InterPom's pour Macintosh : même programme, mais version Macintosh. Programme publié dans le numéro 28 de Pom's. 

+ TPom's pour Apple ][+, //e, //e+, fic et //GS"° : programme de récupération de l'annuaire téléphonique sous la forme de fichiers 
texte. Voir page 53 de ce numéro. 

+ TPom's pour Macintosh : Identique à la version Apple ][. Voir page 42 de æ numéro. 

* ce programme est prévu pour fonctionner avec une carte Super Série Apple ; le port série intégré de l'Apple 1IGS ne convient pas. 

Toutefois, si vous désirez utiliser le port intégré afin d'y connecter le Minitel pour d'autres applications, commandez un câble pour 

Macintosh Plus. 

* sur un Apple IIGS, TPom's fonctionne indifféremment avec le port série intégré ou la carte Super Série Apple. Pour connecter le 

port intégré du HGS, utilisez un câble pour Macintosh Plus. 


Je désire recevoir: cäble Minitel/Apple ][+, Je, //e+, Iles avec SSC  __ à 225,00F 
cäble Minitel/Apple //c ____ à 225,00F 
câble Minitel/Macintosh 128 & 512Ko — à 2500F 
cable Minitel/Macintosh Plus, Iles port intégré D dc 


* pour les envois par avion, ajoutez 15 F par câble. 
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Règlement par : Carte Bleue/VISA C1 & Chèque bancaire [1  Chéquepostal [] Mandat [] 
numéro de la carte date d'expiration 
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